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PREFACE 


This manual describes the UNICHANNEL-15 (UC15) Software System and its 
primary component PIREX, the peripheral processor executive. 

No attempt is made in this document to describe the various UC15 hard- 
ware instructions; those are explained in the UNICHANNEL-15 System 
Maintenance Manual (DEC-15-HUCMA-B-D) . However, examples of instruc- 
tion sequences will be used when necessary to clarify programming con- 
ventions or illustrate important aspects of the UNICHANNEL Software 
System. 

It is recommended that the reader have a thorough understanding of the 
UC15 hardware components before attempting to proceed with this manual 
The user who plans to use the UC15 Software System in conjunction with 
some operating system on the PDP-15, and not modify it, should gain a 
thorough understanding of Chapter 1 of this manual. Users who wish to 
modify the UNICHANNEL-15 Software System should read the UNICHANNEL- 15 
System Maintenance Manual (DEC-15-HUCMA-B-D) . In addition, a know- 
ledge of PDP-11 and its assembly language is necessary before attempt- 
ing UC15 system modification. ^ ^ 

A Glossary is included following the appendices, and should be used to 
clarify terms not familiar to the reader. Program flow charts are 
also included in this manual to aid the user in understanding the 
logic flow. 

The following documents also pertain to the UC15 System: 

MACll Assembler Programmer's Reference Manual DEC-15-LMCMA-A-D 
DOS User's Manual DEC-15-0DUMA-B-D 
DOS System Manual DEC-15-0DFFA-B-D 

UNICHANNEL-15 System Maintenance Manual DEC-15-HUCMA-B-D 
Instruction List for the PDP-15 


PDP-15/76 Systems Reference Manual DEC-15-XSRMA-A-D 


DOS- 15 V3B000 Update Document DEC-15-OD3BA-A-D 
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CHAPTER 1 
INTRODUCTION 


1.1 UNICHANNEL- 15 SOFTWARE COMPONENTS 

The UNICHANNEL-15 Software System consists of the following four 


components ; 

1. 

PIREX 

2. 

SPOLll 

3. 

MACH 

4. 

ABSLll 


1.1.1 PIREX 

PIREX (peripheral executive) , a component of the UNICHANNEL-15 (UC15) 
Software System, is described in Chapters 3 and 4 of this manual. 

PIREX is a multiprograitming peripheral processor executive executed by 
the PDP-11. It is designed to accept any number of requests from pro- 
grams on the PDP-15 or PDP-11 and process them on a priority basis 
while processing other tasks concurrently (e.g., spooling other I/O 
requests) . PIREX services all input/output requests from the PDP-15 
in parallel on a controlled priority basis. Requests to busy routines 
(tasks) are automatically entered (queued) onto a waiting list and 
processed whenever the task in reference is free. In a background 
environment, PIREX is also capable of supporting up to four priority- 
driven software tasks initiated by the PDP-15 or the PDP-11. 


1.1.2 SPOLll 

Spooling is a method by which data to and from slow peripherals is 
buffered on a high performance RK05 disk. Spooling allows the PDP-15 
to access and output data at high speed, freeing more of its time to 
do computation. Programs that do a great deal of I/O, especially 
printing and plotting, are not required to be core resident to complete 
the entire job. This frees the computer to quickly advance to more 
jobs, dramatically increasing the throughput of the entire system. 
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The SPOLll task permits simultaneous spooling of line printer and 
plotter output, and card reader input. The capacity of the spooler is 
user-defined with a possible maximum of over 1,000,000 characters 
allowed . 


1.1.3 MACH 

MACH is a special version of the standard MACRO-11 assembler available 
on the traditional PDP-11 computer system. This program is executed 
as a task under the PIREX Executive. It is used to conditionally- 
assemble various components of the UNICHANNEL Software System. Since 
this assembler is a subset of MACRO-11, programs assembled under 
MACRO-11, will not necessarily assemble under MACH. In addition, 
programs written and assembled under MACH will not necessarily operate 
correctly on other PDP-11 systems. MACH produces assembly listings 
and absolute binary paper tapes as outputs. Detailed information con- 
cerning MACH can be found in the MACH Assembler Programmers Reference 
Manual. 


1.1.4 ABSLH 

ABSLH is a PDP-15 Hardware Read In Mode paper tape program used 
to bootstrap-load the UNICHANNEL peripheral processor with absolute 
binary paper tapes. While primarily designed to load the PIREX exec- 
utive into the PDP-11 memory, ABSLH may be used to load any absolute 
program into the PDP-11 and optionally start it. Additional informa- 
tion on ABSLH may be found in Chapter 2 of this manual. 


1.1.5 System Software Modification 

The complete UC15 Software System may be modified or expanded by the 
user when running under the DOS-15, BOSS-15, or RSX-PLUS III program- 
ming systems. A common editor, called EDIT, allows source changes to 
the PDP-15 or PDP-11 software. MACRO-15, the PDP-15 MACRO Assembler, 
and MACH, a PDP-11 MACRO Assembler allow new object code to be gen- 
erated. Both the MACRO-15 and MACH assemblers are powerful MACRO 
assemblers that facilitate easy code generation and source readability. 


1.2 UNICHANNEL-15 HARDWARE SYSTEM 

The UC15 hardware (see Figure 1-1) consists of a PDP-11 minicomputer 
used as an intelligent peripheral controller for the larger PDP-15 
main computer. The PDP-15 functions as the master processor by initi- 
ating and defining tasks while the PDP-11 peripheral processor func- 
tions as a slave in carrying out these tasks. In order to effectively 
operate, with a minimum of interference with the master processor, the 
peripheral processor uses its own local memory of between 4,096 and 
12,288 16-bit words. Since peripheral control requires only a frac- 
tion of the peripheral processor resources, the remainder of the 
processor's resources can be used for parallel processing of back- 
ground tasks. 
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Figure 1-1 

UNICHANNEL-15 Hardware System 


1.2.1 Common Memory 

Common memory is that memory directly accessable to both the master 
processor - the PDP-15, and the peripheral processor - the PDP-11. Thus 
common memory occupies the upper portion of the PDP-11 address space 
and at the same time the lower portion of the PDP-15 address space. 

The UC15 System allows any Non-Processor Request device on the UNIBUS 
to access PDP-15 memory so that data can be transferred between I/O 
devices and common memory. 

The use of common memory allows ease of data transfer between PDP-15 
memory and secondary storage (disk, magnetic tape, etc.). The PDP-11 
peripheral processor can access a maximum of 28K of memory. Table 1-1 
shows the amount of Common memory accessible to a PDP-11 processor 
with a given amount of Local memory. 


Table 1-1 

Common Memory Sizes 


PDP-11 LOCAL 

COMMON MEMORY 

MEMORY SIZE 

SIZE 

4K^ 

24K 

8K 

20K 

12K 

16K 


NOT supported under DOS-15 V3B000. 
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The UNIBUS can address the combined PDP-15/PDP-11 memory, which can 
extend to a maximum of 124K. For instance, the RK05 and its disk con- 
troller can transfer information to or from a location outside of the 
common memory region. Figure 1-2 outlines a typical memory map of the 


NOT ACCESSIBLE BY UNIBUS 



128K 


124K 


28 K 


4-12K 


18 BIT 
MEMORY 



16 BIT 
MEMORY 


128K 


116-124K 


112-120K 


V MEMORY ACCESSIBLE BY 
/ PDP-15 and PDP-15 I/O 


16-24K 


\ NOT ACCESSIBLE BY PDP-15 
/ OR PDP-15 I/O 


Figure 1-2 

Memory Map of a UNICHANNEL System 


PDP-15 and PDP-11, illustrating the common shared memory address space 
and the PDP-11 local memory. 


1.2.2 Interrupt Link 

The PDP-15 and the peripheral processor communicate with each other 
through device interfaces. When the PDP-15 initiates a new task, it 
interrupts the peripheral processor with a message. The message is 
designated as a Task Control Block Pointer (TCBP) and points to a 
table (Task Control Block) in common memory where the task is defined. 
The peripheral processor performs the task and can signify its comple- 
tion by sending an optional interrupt back to the PDP-15, 
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1.2.3 Peripheral Processor Hardware 

The UC15 System in its standard configuration consists of the follow- 
ing equipment (Figure 1-3) : 



I I 


Figure 1-3 
UNICHANNEL System 


• PDP-11 Peripheral Processor 

• DR15-C Device Interface 

• Two DRll-C Device Interfaces 

• MX15-B Memory Bus Multiplexer 

• 8096 Words of 16-Bit Local Memory 

The PDP-11, which functions as the peripheral processor, can itself 
only process 16-bit words but controls peripherals that can process 
18-bit words to provide compatibility with the PDP-15. The DR15-C 
and the two DRll-C Device Interfaces provide the communication facil- 
ity between the PDP-15 and the PDP-11. The PDP-15 can interrupt the 
PDP-11 and send a data word (TCBP) to the PDP-11; this interrupts the 
PDP-11 at priority level 7 (the highest priority level) and causes a 
trap thru location 310s. The PDP-11, serving as a peripheral proces- 
sor, can interrupt the PDP-15 to indicate an error condition or job 
completion at any one of 128 API vector locations at any one of four 
API priorities.! 


(1) This applies to systems with the API option - systems without API 
can use four skip instructions / corresponding to the four hardware 
priority levels, to determine the nature of the interrupt. 
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The MX15-B Memory Bus Multiplexer functions as a memory bus switch to 
allow either the PDP-15 or the PDP-11 to communicate with the common 
memory. The MX15-B also provides the PDP-11 with the capability of 
performing byte instructions which reference PDP-15 memory. 
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CHAPTER 2 

LOADING AND EXECUTION 


2 . 1 INTRODUCTION 

This chapter explains how to get the DEC-supplied UNICHANNEL-15 Soft- 
ware System up and running, how to tailor the system to a specific 
configuration, and how to maintain the system at a high level of per- 
formance. In addition, a list of the UC15 software components used in 
the various PDP-15 monitor systems is included. 


2.2 LOADING THE SYSTEM^ 

The UC15 system is activated by using ABSLll to load the PIREX execu- 
tive into the PDP-11 UNICHANNEL local memory. DOS-15 is then boot- 
strapped from the RK05 cartridge and the system is ready to: 

1. Continue running under DOS-15 

2. Begin execution of BOSS-15 

3. Begin execution of RSX-PLUS III 


2.2.1 ABSLll 

ABSLll is a PDP-15 absolute binary paper tape program which is read 
into the PDP-15 at location 17700s the Hardware Read In mode (HRM) 
on the PDP-15. It is used to load PDP-11 absolute binary paper tape 
on to the PDP-11. This self starting program is written in MACRO-15 
and octal. (The PDP-11 code is written in octal and assembled with 
MACRO-15.) When ABSLll is first loaded, PDP-15 halts and waits for 
the user to start the PDP-11. The starting ' address for a PDP-11 de- 
pends upon the size of its local memory. Table 2-1 lists the avail- 
able options. 


(1) Refer to the DOS SGEN Manual for the details of how to use DOSSAV 
to initially place a DOS System on the RK05 and prepare it for use. 

(2) If the RK Disk is not going to be the system disk (e.g., the RP 
or RF disks would be the system disk) , see Appendix D for details of 
the proper installation procedure. 
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Table 2-1 

ABSLll Starting Addresses 


Local Memory Size 

ABSLll Starting Address^ 

4000 words 

eoooog 

8000 words 

lOOOOOg 

12000 words 

120000g 


When the PDP-11 is running, the user can place a PDP-11 absolute tape 
(in this case PIREX) in the PDP-15 High Speed Reader and depress the 
CONTINUE switch on _ the PDP-15. This reads the tape into the lower 
8K of the PDP-15 in identical relative positions as if it were loaded 
into the PDP-11 's own local memory. When the tape is completely 
loaded, the PDP-15 signals the PDP-11 to relocate the program into the 
PDP-11' s _ local memory and optionally start it, if a transfer address 
was specified on the tape (as on the PIREX tape) . If not, the PDP-11 
halts and waits for a manual start by the user. The PDP-15 halts once 
the tape has been loaded. The relocation of PDP-11 absolute programs 
into memory is done by copying the entire lower 8 r 1 of the PDP-15 into 
the lower 8K addressing space of the PDP-11 (or the entire 4K, or, the 
entire 12K depending on local memory size) on a word by word transfer. 
This relocation, therefore, results in the entire PDP-11 memory being 
altered with all previous information overlaid. 

If the first paper tape does not have a start address, additional tapes 
can be loaded by depressing the PDP-11 CONTINUE switch once and depress 
ing the PDP-15 CONTINUE switch twice. Warning - the maximum PDP-11 
program address that can be loaded by ABSLll is the amount of PDP-11 
local memory, which is a maximum of 12K for UNICHANNEL systems. 

Checksum errors are detected by the PDP-15 and result in a halt with 
all I's in the AC register. The checksum error may be ignored by 
depressing the CONTINUE switch on the PDP-15. 


2.2.2 Loading ABSLll, PIREX, and DOS-15 

The following is a step-by-step description of how ABSLll, PIREX, and 
DOS-15 are loaded. 

1. Place the ABSLll paper tape into the PDP-15 Paper Tape Reader. 
The Paper Tape Reader ON/OFF switch must be in the ON position 

2. Verify that the RK05 Disk Cartridge is loaded into drive and: 

a. The LOAD/RUN switch is in the RUN position. 

b. The write ENABLE /PROTECT switch is in the ENABLE 
position. 


(1) This value depends upon the actual local memory size - 4K, 8K 
or 12K. 

(2) This is the PDP-11 console address. 
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3. Press the HALT switch on the PDP-11 UNICHANNEL console. 

4. On the PDP-15 console, set the address register switches to 
177j2fjZf (octal) , then press STOP and RESET simultaneously. 

5. On the PDP-15 console, press READ IN. The ABSLll paper tape 
should read in. 

6. When the Paper Tape Reader stops, observe the PDP-15 accumu- 
lator (AC) using the proper setting of the rotary register 
selector and register select switch on the PDP-15 console. 

a. If the AC is 0, proceed to step 7. 

b. If the AC is not 0, retry starting at step 1. (If this 

fails consistently, you have either a bad ABSLll paper 
tape or a hardware problem. ) 

7. On the PDP-11 UNICHANNEL console, load the starting address 
for the PDP-11 portion of ABSLll into the switch registers: 

a. For a 4K local memory UNICHANNEL use 60000g 

b. For an 8K local memory UNICHANNEL use lOOOOOg 

c. For a 12K local memory UNICHANNEL use 120000o 

O 

Then press the PDP-11 LOAD-ADR switch 

8. On the PDP-11 UNICHANNEL console, raise the HALT/ENABLE 
switch to the ENABLE position and then press the START 
switch. The PDP-11 RUN light should now be lit. 

9 . Remove the ABSLll paper tape from the reader and place the 
PIREX paper tape into it. 

10. On the PDP-15 console, press the CONTINUE switch. PIREX 
paper tape should read in. 

11. Remove the PIREX paper tape and verify that the bit 0 and RUN 
lights on the PDP-11 UNICHANNEL console are lit. This is an 
indication that PIREX is running. 

12. Load RK Bootstrap tape (hardware read in mode tape) into the 
Paper Tape Reader. 


Set 

Address Switches 

on 

the 

PDP-15 Console to 

a. 

77637g for a 

32K 

or 

more 

1 PDP-15 

b. 

57637g for a 

24K 

or 

28K 

PDP-15 . 

c. 

37637g for a 

16K 

or 

20K 

PDP-15 


14. On the PDP-15 Console, press simultaneously STOP and RESET. 

15. On the PDP-15 Console, press the READ IN switch. The RK 
Bootstrap tape should read in. 

16. DOS-15 should announce itself. If not, check that the console 
terminal is powered up, is ONLINE and not out of paper. 

Also check that the correct disk cartridge was loaded into 
drive 0 . 
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2 . 3 UNICHANNEL SOFTWARE RECONFIGURATION 

The initial UC15 system supplied to the user may require modification 
to be effectively used. This system is configured as follows: 

1. An 8K local memory MACll assembler 

2. A PIREX Executive with RK and LP drivers 

3. A SPOLll spooler for LP only 


2.3.1 MACll 


If your system does not have 8K local memory on the UNICHANNEL, you 
first tailor the MACll assembler into a version compatible with 
your local memory size. The procedure to perform this under DOS-15 
follows : 


1 . 


2 . 


3. 


4. 

5 . 


Assemble MACIMG XXX present under the PER UIC using 
MACRO-15 and one of the following assembly parameters. 


a. 

LM4K = 0 

For 

a 

4K 

local : 

memory 

UNICHANNEL 

b. 

No parameter 

For 

an 

8K 

local 

memory 

UNICHANNEL 

c . 

LM12K = 0 

For 

a 

12K 

local 

memory 

UNICHANNEL 


This will produce the binary file MACIMG BIN 

Load one of the following MACll paper tapes into the Paper 
Tape Reader: 

a. DEC-15-0DUFA-A-PB For a 4K local memory UNICHANNEL 

b. DEC-15-0DUEA-A-PB For an 8K local memory UNICHANNEL 

c. DEC-15-0DUTA-A-PB For a 12K local memory UNICHANNEL 
Issue the DOS-15 API OFF command (if you have API) . 

Issue the DOS-15 $ GLOAD ^ command, then type > — — MACIMG 


The paper tape should read in. When it stops a "DONE" 
message should be printed on the console terminal; at this 
point, the PDP-11 part of MACll is installed on disk. 


6. Assemble the MACINT XXX under the PER UIC using the following 
assembly parameters: 


a. 

LM4K = 0 

For 

a 

4K 

local 

memory 

UNICHANNEL 

b. 

No parameter 

For 

an 

8K 

local 

memory 

UNICHANNEL 

c . 

LM12K => 0 

For 

a 

12K 

local 

memory 

UNICHANNEL 


7. LOGIN under the MICLOG and assign DAT. -10 to the PER UIC. 
$A RK <PER> -10 ) 
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Using PATCH do the following: 

$ PATCH > 

> MAC11 ) 

> READ MACINT ^ 

> EXIT ^ 

This installs the PDP-15 portion of MACll onto the disk. 
9. A new MACll will now be available for use. 


2.3.2 PIREX 

The PIREX Executive should be configured to contain device drivers 
only those peripherals actually present in the user's configura- 
tion. The DOS Assembly Parameters Document DEC-15-0DAPA-A-D describes 
the various assembly options available to the customer. The following 
procedure should be followed to produce a tailored version of PIREX. 

1» Under the PER UIC, use EDIT to add or remove the various 
assembly parameters for PIREX. (Parameters for programs 
assembled by MACll must be included in the main source file.) 

device. (The absolute binary 
paper tape.) 

XXX^: 


"B" causes the absolute binary paper tape to be punched 

"L" causes the optional listing to be printed on DAT-12. 

4. Load the new paper tape using the instructions in Section 

2.2.2 of this chapter. 


2.3.3 SPOLll^ 

The UNICHANNEL Spooler should be configured to provide spooling only 
for those devices present on the user's configuration. The spooler 
supplied with the system is configured to provide Line Printer spooling. 
If the user does not possess a UNICHANNEL Line Printer (LPll/LSll/ 

LVll) , or the user wishes to spool other UNICHANNEL devices, this 
spooler should not be used. The procedure for producing a spooler 
tailored to the user's configuration follows. 


Assign DAT-12 to the listing 
output device will always be 

Run MACll and assemble PIREX 

$ MAC11 ^ 

>BL-^ PIREX XXX (ALT] 
Where : 


(1) XXX represents the latest version nxmber, i.e., PIREX 118. 

(2) This procedure applies only to DOS-15 V3A000 . See the DOS-15 
V3B000 Update Document DEC-15-OD3BA-A-D for details of how to 
install the spooler on a DOS-15 V3B000 system. 
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Under the PER UIC use EDIT to add or delete the following 
assembly parameters in SPOLll XXX: 

a. $LP = 40000 for Line Printer Spooling 

b. $CD = 20000 for Card Reader Spooling 

c. $PL = 10000 for Plotter Spooling 
Assign DAT-12 to the listing device. 

Assemble SPOLll under MACll with both the B and L switches. 
$ MAC11 ^ 

> BL -^SPOLll XXX 

From the listing locate the definition of SPOLSZ and copy 
down the value . 

Run PIP and type : 

$ pip ) 

> L TT^ RK (L )^ 

This will produce a symbolic listing. Using this listing, 
locate the column headed FB (first block) and find the first 
block of SPOOL. 

Under the PER UIC assemble the SPOL15 XXX program with 
MACRO-15 using as assembly parameters: 

a. SPOLSZ = the value determined in 4 above. 

b. FB = the value determined in 5 above. 

Under the PER UIC assemble the SPLIMG XXX program with 
MACRO-15 using the assembly parameter: 

a. SPOLSZ = the value determined in 4 above. 

For API systems issue the DOS-15 command API OFF. 



The SPOLll paper tape will be read in and a "DONE" message 
will be typed on the console terminal when completed. 

Next MICLOG and assign DAT-10 to the PER UIC 

$ 
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13. Run PATCH and type: 

$ PATCH ) 

> SPQOL^ 

> READ SPQLI 5 ) 

> EXIT^ 

This will append the PDP-15 portion of the spooler to the 
previously loaded PDP-11 portion. 


2.3.4 PDP-15 UNICHANNEL Handlers 

PDP-15 UC15 Handlers that are not to be spooled must be assembled with 
the NOSPL = 0 assembly parameter. Those handlers that are to be 
spooled must be assembled without this parameter defined"^ The initial 
RK05 system supplied by DEC contains handler binaries under the < lOS > 
UFD that were assembled as follows: 

1. LPA. was assembled to allow spooling 

2. CDB. was assembled with NOSPL = 0 to not allow spooling. 

3. XYA. was assembled with NOSPL = 0 to not allow spooling. 

Any alteration of the mix of spooled devices requires reassembly of 
the handler sources. (Location under the <PER> UFD, See the DOS 
Assembly Parameter Manual , for additional assembly parameter options.) 
The resulting binaries must be renamed (see Section 2.7.2) and trans- 
ferred to the <IOS> UFD. 


2.3.5 SPOOLER Size Constraints 

The following should be considered an absolute constraint on the num- 
ber of devices spoolable on the UC15 system. 

1. A 4K local memory system can have no spooled devices 

2. An 8K local memory system can have up to 2 spooled devices 

3 . A 12K local memory system can have up to 4 spooled devices 

(DEC only provides spooler modules for 3 devices. Additional 

spooled device modules must be added by the user. Refer to 
chapters 5 and 6 for information on how to do this) . 


2 . 4 PERIPHERAL OPERATION 


2.4.1 Disk Cartridge 

On the front of the disk cartridge unit there are two (optionally a 
third, ON/OFF) toggle switches, RUN/LOAD, and WRITE/PROT. To load 
the disk, press ON (if present) and LOAD. Pull the door open. Pick 


2-7 


J-15 



DOS-15 V3B000 Update Document 

up the cartridge by the molded hand-grip, metal side down, horizontal, 
and slide gently into the path between the wire guides. Shut the 
door. Put the LOAD/RUN switch into the RUN position. In about 10 
seconds, the two lights, RDY and ON CYL will come on, indicating 
that the cartridge is ready. To unload the disk, place the toggle 
switch on LOAD. Wait for about 30 seconds until the LOAD light is 
_ At this time, the drive will release the cartridge with a 
noticeable 'clunk', only then open the door and pull the cartridge 
out. 

WARNING 

Do not turn off the drive while unloading 
(if drive has an OFF-ON toggle) . 


2.4.2 Plotter 

Unlike the XY311, the XYll does not have an offline switch. In order 
to be able to indicate the XYll plotter off-line condition, provision 
is made in the software through the PDP-11 console switches. By set- 
bit 2 of the console data/address switches in the up/on posi- 
tion Cl' state) the plotter can be put in the off-line mode. This is 
made possible by the plotter device driver task in PIREX, which moni- 
tors this bit before initiating each plotter I/O requests. Once 
the plotter problem condition (e.g., out of paper) has been corrected, 
plotting will continue automatically when bit '2' of the console 
switches is reset to zero (down position) . 

The user is provided with the capability of halting the output on the 
plotter at the end of current file in the spooled mode. This is done 
through bit '3' of the PDP-11 console switches. By setting bit '3' of 
the console data/address switches in the up/on position ('1' state) 
output on the plotter can be halted at the end of current file. The 
plotter driver task in PIREX provides this facility by monitoring this 
bit before initiating each plotter I/O requests. After performing the 
necessary operations on the plotter, output can be resumed by setting 
bit '3' of the console switch in the down/off position ('O' state) 


2.4.3 Card Reader 

For the purposes of spooling, a card with ALT MODE, ALT MODE in col- 
umns 1 and 2 is used as an end-of-deck card. The handler throws away 
such cards, continuing on to the next card, so that the PDP-15 pro- 
gram using the handler never sees this card. This card is used"^ to 
force data from a partially filled internal spooler buffer onto the 
disk where it can be despooled to the PDP-15. 


2.4.4 Line Printer 

Output to the Line Printer can be halted at the end of current file in 
the spooled mode. This is done through bit '1' of the PDP-11 console 
switches. By setting bit '1' of the console data/address switches in 
the up/on position ('1' state) , outputs on the line printer can be 
haltea at the end of current file. The Line Printer driver task in 
PIREX provides this facility by monitoring this bit before indicating 
completion of .CLOSE I/O request . processing. After performing the 
necessary operations on the line printer, output can be resumed by 
setting bit 1 of the console switch in the down/off position ('O' 
state) . 
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2.5 ERROR HANDLING 

Within the PIREX system, the device drivers on the PDP-11 side handle 
errors by placing error condition indicators in a table in PIREX. On 
the PDP-15 side, a "poller" (part of the resident monitor of the 
operating system) periodically searches the table to see if any error 
messages are to be printed. In almost all cases the recovery is auto- 
matic when the error condition is rectified. See Appendix C for a 
list of UC15 related error messages. 

2.5.1 Disk Cartridge Errors 

Disk cartridges must be positioned properly during loading operations. 
Improper positioning of the cartridge can result in a drive not ready 
condition. 


This condition can be eliminated in most instances by unloading the 
cartridge, repositioning it properly and reloading the cartridge. 

The above operations should be repeated a few times before reporting 
the problem to your field service representative. Do not force the 
cartridge into or from position during the loading or unloading 
operation. 

2.5.2 Card Reader Errors 

The system divides card reader errors into two groups: hardware and 

software. A hardware error is a hardware read error (pick check, card 
jam, etc.) or an illegal punch combination. A software error is a 
supply error (hopper empty, stacker full) or an off-line condition. 

For all hardware errors, the card causing the error will be on the top 
of the output stack. With most hardware errors, the card reader will 
stop, and a requisite light (i.e., pick check) will light on the 
reader. Remove the card, repair or replace it, and put it on the 
front of the input stack. Press the RESET button. The driver receives 
an interrupt when the device becomes ready again and will restart 
automatically . 

For software errors, the card in the output hopper has already been 
read. It is merely necessary to fix the supply error and press the 
RESET button . Note that the card reader can be stopped by pressing 
the OFF-LINE button. To restart, press the RESET button. 

Illegal punch combination (lOPSUC CDU 72) and card column lost (lOPSUC 
CDU 74) are exceptions to all other errors because in these cases 
alone, the card reader will stop, remain on line, and no diagnostic 
Ixght will be lit. The card causing the error will be in the top of 
the output hopper. (Mangled cards may cause, an illegal punch combina- 
tion error.) Press the OFF-LINE button, repair or replace the faulty 
card, put it on the front of the input stack, and press the RESET 
button to restart. 


2.6 SYSTEM CRASHES 

During program development under PIREX on the PDP-11, system crashes 
may occur. Such crashes may not be apparent because PIREX keeps 
both the RUN light and bit 0 lit as if no problem existed. PIREX will 
then either not respond at all or return illegal event variable values. 
Under these circumstances, reload PIREX and reboot the operating sys- 
tem on the PDP-15. 
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2.7 UNICHANNEL RELATED SOFTWARE COMPONENTS 


2.7.1 UC15 Components 


NOMENCLATURE 

SOURCE FILE NAME 

BINARY FILE NAME 

PIREX Executive 

PIREX XXX 

PIREX paper tape 

SPOOLER 

SPOLll XXX 

SPOOL *** 

PDP-11 Absolute Loader 

ABSLll XXX * 

ABSLll paper tape 

MACll Assembler 

Special DOS-11 Tape** 

MACll *** 


2.7.2 DOS-15 Components 


NOMENCLATURE 

SOURCE FILE NAME 

BINARY FILE NAME 

PDP-15 SPOOLER 

SPOL15 

XXX 

SPOOL *** 

Component 




SPOOLER Disk Area 
Allocation 

SPLGEN 

XXX 

SPLGEN BIN***** 

SPOOLER Image 

SPLIMG 

XXX 

SPLOAD BIN***** 

Loader 




PDP-15 MACll 

MACINT 

XXX 

MACll *** 

Component 




MACRO Image Loader 

MAC IMG 

XXX 

MACIMG BIN 

DOS Resident Monitor 

RESMON 

XXX 

RESMON **** 

DOS Non-Resident Monitor 

DOSNRM 

XXX 

DOS15 **** 


* ABSLll requires a special assembler, that is not available as a 
supported product. Assembly of ABSLll with the standard DOS-15 MACRO 
Assembler produces a paper tape with a load address of 17720. 

** The MACll source is a PDP-11 tape that must be assembled and 
linked under DOS-11, 

*** SPOLll and MACll are combinations of PDP-15 and PDP-11 code 
segments . 

**** These routines are versions of standard DOS-15 source files - 
created using special assembly parameters - see the DOS Monitor 
User's Manual . 

***** DOS— 15 V3B000 components. 
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NOMENCLATURE 

SOURCE FILE NAME 

BINARY FILE NAME 

PDP-15 LPll/LSll/LVll 
Line Printer Handler 

LPU. XXX 

LPA. BIN 

PDP-15 XY11/XY311 Plotter 
Handler 

XYU. XXX 

XYA. BIN 

PDP-15 CRll Card 
Reader Handler 

CD . DOS XXX 

CDB. BIN **** 


**** These routines are versions of standard DOS-15 source files - 
created using special assembly characters - see the DOS Monitor 
User^s Manual. 


2.7.3 RSX-PLUS III Components 


NOMENCLATURE 

SOURCE FILE NAME 

TASK NAME 

Fixed-Head Disk File Handler 

RFRES 

RK 

Disk File Handler Overlay 

RFOPEN 

RK 

Disk File Handler Overlay 

RFCLOS 

RK 

Disk File Handler Overlay 

REREAD 

RK 

Disk File Handler Overlay 

RFDLET 

RK 

Disk File Handler Overlay 

RFCREA 

RK 

Line Printer Handler 

LP. 30 

LP 

Card Reader Handler 

CD 

CD 

UNICHANNEL Poller 

POLLER 

POLLER 

Spooler 

SPOOL 

. . . SPO 

Executive 

RSX.Pl 

and 

RSX.P2 



These items are usually on DECTAPE or magnetic tape. 
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CHAPTER 3 


SYSTEM DESIGN AND THEORY OF OPERATION — PIREX 


This chapter describes the design and theory of operation of the 
UNICHANNEL-15 Peripheral Processor Executive. Knowledge of this 
information is necessary to successfully modify the UNICHANNEL-15 
Software System. Chapter 4 will discuss techniques for modification 
of the PIREX system. 


3.1 PIREX — PERIPHERAL EXECUTIVE 

PIREX is a multiprogramming peripheral processor executive designed 
to provide device driver support to operating systems on the PDP-15 
main-processor. PIREX is designed to be as independent of the par- 
ticular PDP-15 operating system as possible, executing in conjunction 
with DOS-15, BOSS-15, or RSX-PLUS III. The PIREX Software System is 
designed to maximize flexibility and expandability and to minimize 
system overhead and complexity. To accomplish this, special software 
and hardware features are designed into the system. 


3.1.1 PIREX-An Overview 

PIREX is loaded from the PDP-15 high-speed reader into the PDP-11 
local memory and automatically started. Once running, PIREX is 
capable of accepting multiple requests and directives from the PDP-15 
or PDP-11 and processing them on a controlled-priority basis. Task 
requests are automatically queued (see Figure 3-1) and processed when- 
ever the task in reference is free. When a particular device or 
routine completes the processing of a request, status information 
(e.g., parity or checksum errors, transfer OK, etc.) is passed back 
to the caller. 

At the completion of a PDP-15 request, an optional hardware interrupt 
is initiated in the PDP-15 on any one of 128 possible API trap loca- 
tions and at any one of 4 hardware API levels if requested. Since 
the software completely determines which interrupt vector and level 
to use when completing PDP-15 requests, the routines initiating the 
interrupts could actually be software routines used to simulate 
hardware conditions or just software tasks. If the request is issued 
from the PDP-11, the user may request an optional software interrupt 
after completion of the current request. 
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3.1.2 PIREX Components 


The PIREX executive consists of modules that provide support for 
^^Itiple I/O oriented tasks operating asynchronously with each other. 
In addition, support is provided for other background tasks such as 
MACll. The services provided to tasks operating under PIREX include: 

• Context switching - transferring control of the PDP-11 
Central Processing Unit (CPU) from one task to another. 

• Interprocessor communication - receiving requests for 
service from, and, sending results to the PDP-15 main 
processor. 

• Intraprocessor communication - receiving requests for 
service from, and, sending results to tasks operating on 
the PDP-11 peripheral processor. 

• Scheduling - determining which task is to execute next. 

• Request Queuing - stacking requests for a busy task until 
it is able to process them. 

• Timing - providing a timed wake-up service for requesting 
tasks . 

• Error Reporting - providing a list of current device and 
task errors to the PDP-15 executive, on demand. 

• Directive Processing - providing the PDP-15 monitor with 
specific services such as; notification of available 
memory space, connecting, disconnecting or stopping tasks 
and returning the status of certain tasks. 

These services are provided to both device driver tasks and back- 
ground tasks . 


3.1.3 Device Drivers 

Device Drivers are tasks that typically perform rudimentary device 
functions such as read, write, search, process, interrupt, etc. They 
can, however, be complete handlers, performing complex operations 
such as character generation and directory searching. PIREX provides 
each driver with requests for I/O actions and returns the results of 
the actions to the caller. Associated drivers are provided for the 
RK05 Disk Cartridge, the LPll/LSll/LVll Line Printer, the CRll Card 
Reader, and the XYll Plotter. 


3.1.4 Software Routines in Background Mode 

The following are run as background tasks — executing only when I/O 
driver tasks are idle: 

1. SPOLll — an input/output spooling processor 

2. MACll — A MACRO assembler for the PDP-11 
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3.1.5 Unsupported Tasks 

All tasks supplied with the PIREX software system are fully supported 
by Digital Equipment Corp. except the DECtape Driver task (DT) and 
LVll Plotter tasks. The DT task has not been completely tested, but 
is included in the system for illustrative purposes and for anyone 
who may desire to develop DECtape capability on the PDP-11. The LVll 
task is designed to allow .TRAN operations to the LVll when used as a 
plotter (instead of as a printer) . This task was developed for the 
demonstration of vector scan plotting techniques. The task is unsup- 
ported because the vector scan routines are not currently available 
from DEC. 


3.1.6 Power Fail Routine 

A power fail section is present in PIREX. It is, however, not 
supported by DEC and currently only saves the general registers and 
does not attempt to handle I/O in progress. This routine could be 
expanded by the user into a complete power fail handler. 

3.2 PIREX - SIMPLIFIED THEORY OF OPERATION 

3.2.1 NUL Task 

When the PIREX Software System is running, it is normally executing 
the NUL Task (a PDP-11 WAIT instruction) . The NUL Task is executed 
whenever there are no other runnable tasks or while all other tasks 
are in the WAIT state waiting for previously initiated I/O. The NUL 
Task entry is a permanent element in the Active Task List. The Active 
Task List is a priority ordered list of tasks that is used to schedule 
the next task to be executed. The NUL task occupies the last position 
in the Active Task List (ATL) . 

3.2.2 Clock Task 

One other permanent entry in the ATL is the Clock Task. The Clock 
Task is entered once every 16.6 milliseconds (for 60 hz machines). 

Its primary function is to provide other tasks with a wake up service. 
A typical use of the Clock Task would be to wake up the Line Printer 
Task every two seconds to check the Line Printer status for a change 
from OFF LINE to ON LINE. The Clock Task operates at the highest 
priority on the ATL. 
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3.2.3 Request Processing 

When the PDP-15 issues a request to the PDP-11 to be carried out by 
PIREX, it does so by interrupting the PDP-11 at level 7 (the highest 
PDP-11 priority level) and simultaneously passing it the address of a 
Task Control Block (TCB) through the interrupt link. This address is 
called the Task Control Block Pointer (TCBP) . A PDP-11 task can 
issue requests to other tasks via the IREQ macro. The IREQ macro 
simulates the PDP-15 request process and results in a TCBP being 
passed to PIREX. The contents of the Task Control Block completely 
describe the request (task addressed, function, optional interrupt 
return address and level, status words, etc.). The TCB will reside 
in the 'Common' Memory if the request is issued from the PDP-15 or in 
the 'Common' or 'Local' Memory if the request is issued from the 
PDP-11. 

The flow chart in Figure 3-1 illustrates the basic processing of 
requests to PIREX from the PDP-15 or the PDP-11. Note that error 
conditions are passed back to either central processor in the TCB or 
via an error table to the PDP-15 monitor poller along with status 
information necessary for control and monitoring of a request. 

Usually the request is to a device on the PDP-11 but other types are 
allowed. 


3.2,4 Task Structure 


A task is a PDP-11 software routine capable of being requested by the 
PDP-15 or PDP-11 through the PIREX software system. The task may be 
a device driver, a directive processor, or just a software routine 
used to carry out a specified function. A task must have the format 
shown in Figure 3-2, TASK FORMAT. 


task stack area 

control register 
busy/idle switch 

task program 
code 


**** LOWER CORE 
* * 
f I 
I I 
* * 

**** 

* * 

* * * * 

* * 

* * 

* * * * 

* * 

* * 

• I 

* * 

* * 

**** HIGHER CORE 


Figure 3-2 
Task Format 
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This structure consists of four sections; two are variable in size 
and two are fixed. 

The "task program code" size is variable and contains the program- 
ming code necessary to carry out the task function. 

The "busy/idle switch" consists of two words and is used by PIREX to 
determine if a task is busy or idle. The TCBP of the current request 
is stored in this section when the task is busy. This also enables 
a task to easily access the TCB. 

The "control register" is either a dummy address (an address which 
points to an unused software variable) or the address of a device 
control register if the task is an I/O driver. This word is used 
only by the STOP TASKS (ST) task when shutting down I/O operations. 

The "stack area" begins immediately below the control register and 
builds dynamically downwards. The purpose of the stack is to allow 
each task free use of a private space for temporary storage of data 
while it is executing and all its active registers during times when 
other higher priority tasks are being run. The stack area must be 
large enough to store the maximum number of temporary variables used 
at any one time plus one context register save. A context save 
requires 8 words of stack area plus an additional 3 words if the 
PDP-11 has an Extended Arithmetic Element (EAE) . The stack size is 
fixed and determined at PIREX assembly time. 


3.2.5 Task Control Block - TCB 

Tasks, in PIREX, receive requests for action and return the results 
of their action in bundles of information called Task Control Blocks 
(TCB) . The general format of a TCB consists of three words followed 
by task-specific optional words. The following information must be 
present in all TCBs since PIREX will honor requests in this format 
only. 


15 8 7 0 


API TRAP ADDRESS 

API LEVEL 

FUNCTION CODE 

TASK CODE NUMBER 

REQUEST EVENT 

VARIABLE 

OPTIONAL WORDS 


WORD 0 
WORD 1 
WORD 2 
WORD 3-N 


3. 2. 5.1 API Trap Address and Level - The API trap address is a PDP-15 
API trap vector and has a value between 0 and 17 7 g when a hardware 
interrupt on the PDP-15 is required. Location 0 corresponds to 
location 0 in the PDP-15. The "API" level is the priority level at 
which the interrupt will occur in the PDP-15 and has a value between 
0 and 3 when a hardware interrupt on the PDP-15 is required. A 0 
signifies API level 0, a 1 for level 1, etc. The API trap address 
and level are used by tasks in the PDP-11 when informing the PDP-15 
that the requested operation is complete (e.g., a disk block trans- 
ferred or line printed). If the PDP-15 master computer doesn't have 
API or if API is not enabled, the PDP-11 issues an interrupt that 
when received is polled by the PDP-15 using 4 UC15 skips (one per 
level) on the traditional skip chain. 
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3. 2. 5. 2 Function Code - The Function Code determines whether hard- 
ware interrupts on the PDP-15 or software interrupts on the PDP-11 
are to be used at the completion of the request. If the code has a 
value of 0, a hardware interrupt is generated on the PDP-15 at the 
completion of the request; if a 1, an interrupt is not made. If the 
Function Code is a 3, a software interrupt is issued by PIREX. The 
task routine or program using this facility sets up the trap address 
in the SENDll table in PIREX prior to issuing the request to the task. 
The task or route should return to PIREX after interrupt processing 
through an "RTS PC" instruction. All registers are available for use 
by tasks. 


3.2.5. 3 Task Code Number - The Task Code Number (TCN) is a positive 
(l-177g)l or a negative (200-3770) 7-bit number plus a sign bit that 
informs PIREX which task is being referenced. The mnemonic TCN as 
used in this manual refers to the 7-bit portion of the Task Code 
Number. Tasks are addressed by a numeric value rather than by name. 
Tasks with positive code numbers are spooled tasks and tasks with 
negative code numbers are unspooled tasks. When the SPOOLER (see 
Chapter 5) is enabled and running, requests to spooled tasks are 
routed to the SPOOLER. When the SPOOLER is disabled, requests to 
spooled tasks are routed directly to device drivers. 


Task Code 

Numbers 

are currently 

assigned as follows: 


CODE^ 

TCN 


TASK 


-l3 

-1 

CL task 

(Clock) 

6 

Driver task-* 

200 

0 

ST task 

(Stop Task) 

Software task 

201 

1 

SD task 

(Software Directive) 

Directive task 

202 

2 

RK task 

(Cartridge Disk) 

Driver task 

203 

3 

DT task 

(DECTAPE) 

Driver task 

4 

4 

LP task 

(Line Printer) 

Driver task 

5 

5 

CD task 

(Card Reader) 

Driver task 

6 

6 

PL task 

(Plotter) 

Driver task 

207 

7 

SP task 

(Spooler) 

Background task 

210 

10 

LV task 

(Printer/Plotter) 

Driver task 

211/11 

11 

Currently not used 

- 

212/12 

12 

Currently not used 

- 

213/13 

13 

Temporary Task Entry 

Temporary task 


(1) A task code of 0 indicates the STOP TASKS DIRECTIVE - See 
Section 3.5 

(2) The code column corresponds to the typical task code in the TCB 

(3) The minus 1 is represented internally as 377 
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PIREX is currently capable of handling these 13 tasks. Tasks 11-13 
are spare task codes available for customer use.^ 


3. 2. 5. 4 Request Event Variable - The REQUEST EVENT VARIABLE, 
commonly called REV, is initially cleared by PIREX (set to zero) when 

the TCB request is first received and later set to a value "n" (by 

the associated task) at the completion of the request. The values 
of "n" are: 

0 = request pending or not yet completed 

1 = request successfully completed 

-200 = (mod 2l^-l) nonexistent task referenced 

-300 = (mod 2^^-l) illegal API level given (illegal values 

are changed to level 3 and processed) 

X6 

(mod 2 -1) illegal directive code given 

(mod 2^^-l) no free core in -the PDP-11 local memory 
16 

(mod 2 -1) ATL node for this TCN missing 

(mod 2^^-l) request node was not available from the 

POOL (i.e., the node POOL was empty, and the referenced 

task was currently busy or the task did not have an 

ATL node in the Active Task List) 

When an address is passed in a TCB as data, the receiver of the 
address must relocate it to correspond to the addressing structure 
in its memory space. For example, a PDP-15 address passed to the 
PDP-11 must first be multiplied by two to convert word to byte 
addressing and then the local memory size (LMS) of the PDP-11 must 
be added. For example, 

PDP-11 address = (PDP-15 address *2) + LMS on PDP-11 

The reverse is true for a PDP-11 address received by the PDP— 15 . For 
example , 

PDP-15 address = (PDP-11 address - LMS)/2 


3.3 SYSTEM TABLES AND LISTS 

The PIREX system uses various tables, lists, and deques to control 
events within the system. 


(1) See Section 4.4 for further information. 


-400 = 

-500 = 

-600 = 
-777 = 
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3.3.1 Active Tast List (ATL) 

The selection of a task for execution by PIREX is accomplished by 
first scanning a priority-ordered linked list of all active tasks in 
the system called the Active Task List (ATL) . An active task is one 
which satisfies one or more of the following conditions: 


1. 

is currently executing 



2. 

has a new request pending 

in its 

deque 

3. 

is in a wait state, or 



4. 

has been interrupted by a 

higher 

priority task 


A task is inactive if there is no ATL node for it. A task can be in 
any one of the following states: 


CODE 

STATE 

ACTIVITY 

0 

run 

active 

2 

wait 

active 

4 

exit 

inactive 


When a runnable task is found, the stack area and general purpose 
registers belonging to that task are restored and program control is 
transferred to it through an RTI instruction. Program execution 
normally begins at the first location of the task diagram code (see 
Figure 3-2) or at the point where the task was previously interrupted 
by a higher priority task, or in special cases at any desired loca- 
tion in the task using the 'PC* setting on the stack as in the RK 
task's error retry program logic. When a task is interrupted by 
other tasks, its general purpose registers are saved on its own stack. 
Control is returned to the interrupted task by restoring its stack 
pointer and then its active registers. 

The ATL is rescanned when: 

1, a new request is issued to a task 

2. a previous request is completed 

3, at the end of a clock interrupt 

4. a task goes into a wait state 

A task is said to be in a "wait" state when its ATL node exists and 
it is not runnable. 


3. 3. 1.1 ATL Nodes - The Active Task List is a linked list containing 
4 word entries called nodes. 
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Figure 3-3 

Detailed Flow Chart of PDP-15/PDP-11 Request Processing 
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w r Rescan the ATL 
from the top. 
^See Figure 3-4 


Figure 3-3 (Cont.) 

Detailed Flow Chart of PDP-15/PDP-11 Request Processing 





Figure 3-3 (Cent.) 

Detailed Flow Chart of PDP-15/PDP-11 Request Processing 
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An ATL node has 
WORD 1 - 

WORD 2 - 

WORD 3 ^ 


the following structure: 

Forward pointer to next node 
Backward pointer to previous node 
Stack pointer of task 


15 

14 

13 

12 

11 

10 

0 

8 

0 

0 

0 

0 

0 

0 

0 

a 


Task Priority I 

Spooling Indicator 

0 = spooled 

1 = not spooled 

Task Code Number (TCN' 


TASK STATUS (States defined in 3.3.1) 


The ATL is referenced by a 2-word listhead. The listhead contains 
backward and forward links pointing to the first and last nodes in 
the list. The ATL is a priority-ordered list. 


3. 3.1.2 ATL Node Pointer (ATLNP) - Each task has a pointer to its 
Active Task List Node (see Section 3. 3.1.1) stored in the ATLNP 
table. This table is in TCN order. An entry is 0 if the task is 
inactive . 

The format of an ATLNP entry is: 

0 ; NAME task-code-number^ 

These entries are filled dynamically by PIREX with actual pointers. 

3.3.2 Task Request List (TRL) 

The Task Request Lists are doubly- linked, deque-structured lists of 
pending TCBs. If when a request arrives, the target task is busy, 
PIREX places the TCB pointer (TCBP) onto the busy task's deque for 
later processing. This deque is the Task Request List. 


(1) The "NAME task-code-number" is a comment 
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A TRL node has the following structure: 

WORD 1 - Forward pointer to next node. 

WORD 2 - Backward pointer to previous node. 


WORD 3 - 

El 

14 

13 

12 

11 

10 

0 

8 

0 

6 

0 

4 

0 

0 

0 

0 


Request Identifier — > / 

0 = PDP-15 request / 

1 = PDP-11 request / 

Most significant bits of the TCBP (PDP-15) bits 0 and 1 

WORD 4-16 least significant bits of TCBP (PDP-15 bits 2-17) 


Each TRL is referenced by a two-word listhead. The listhead contains 
backward and forward links pointing to the last euid first nodes of a 
given task's TRL. The TRL is built on a first come first serve basis. 


3.3.3 TRL Listheads (LISTHD) 

Each task has its own Task Request List, (TRL) , Each LISTHD entry is 
a double-linked listhead used to point to a task's TRL. The LISTHD 
is a TCN ordered list. 

The format for eui entry is: 

LISTHEAD XX 

where : 

1. LISTHEAD is a system macro 

2. XX is a two character task mnemonic (i.e., LP for Line 
Printer Task) . 


3.3.4 Clock Request Table (CLTABL) 

The Clock Teible (CLTABL) contains entries for one timing (wake up) 
request from each task. The format of a CLTABLE entry is: 

XXl.CL = . 

•WORD 1 ; Time Word 

•WORD 1 ; Address Word 


(1) XX represents the task mnemonic (e.g., RK.CL) 
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Where the first word is remaining time before wakeup and the second 
word is the address for a JSR PC, XXX instruction. The JSR occurs at 
clock interrupt level (6) . The user must do an RTS PC to return 
control to the clock routine. Time is measured in line frequency 
ticks: 16.6 milliseconds/tick for 60 Hertz Systems. A task may cancel 
a timing request by clearing the time word. A request for a wakeup 
is made by: 

1. Placing the address of the routine to be called into 
word 2 - then 

2. Placing the time delay (measured in 1/60 sec. increments) 
into the time word. 

The above sequence must be exactly followed. See Chapter 4 for 
further details on the use of wakeup calls. CLTABL is a TCN ordered 
list. 


3.3.5 Device Error Status Table (DEVST) 

The DEVST table is used to store error status codes for delayed 
transfer to the PDP-15 monitor. The PDP-15 monitor contains a routine 
called the "Poller" which periodically requests error status codes 
from PIREX using a "get errors" software directive. This method of 
error transmission is useful for delayed error messages — such as 
those recognized on spooled devices. The specific PDP-15 I/O handler 
may no longer be present in the PDP-15 *s memory — thus the Request 
Event Variable (REV) method of returning error status would be useless. 
The "Poller" requests the entire DEVST table and reports those events 
on the system console terminal. A "Get Errors" directive clears the 
DEVST table upon completion. The reporting task may, for instance, 
correct the error condition before the "Get Error" directive is 
issued. When this happens, the task could simply clear its message 
from the DEVST table and thus eliminate a spurious message. DEVST 
is a TCN ordered table. The format of a DEVST entry is as follows: 

WORD 1 - TASK (MNEMONIC IN SIXBIT/RAD50 RIGHT JUSTIFIED) 

WORD 2 - SPARE (except for RK task where bad disk block is 
present) 

WORD 3 - ERROR CODE: SPOOLER ERROR CODE (HIGH BYTE) 

TASK ERROR CODE (LOW BYTE) 


3.3.6 LEVEL Table 

The LEVEL table (task priority level) is used by the R.SAVE context 
switch routine to determine the priority level of the task about to 
begin execution. All interrupt vectors must specify a priority 7 
entry into their respective interrupt routines. Upon entry, R.SAVE 
should be called to save the interrupt task state and return control 
to the interrupt processing routine at the proper priority — found in 
the LEVEL table. The LEVEL table is a TCN ordered task. 

The LEVEL table entry format is : 

.BYTE task priority *40 
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3.3.7 Task Starting Address (TEVADD) 

The TEVADD Table contains the starting address of all defined tasks. 
The system currently has room for 13 g tasks of which three are tempo- 
rary entries used for tasks CONNECTED to and DISCONNECTED from PIREX. 
MACll is such a temporary task and uses the table entries of the 
currently unused highest task code. All PIREX systems must have at 
least one highest unused task entry to allow use of MACll. The 
TEVADD table is TCN ordered. 

The format of a TEVADD table entry is : 

.WORD START ; task name 

where START is either: 

1. The starting address of the task, or, 

2. 0 indicating that this entry is currently unoccupied, 
where "Task name" is a comment. 


3.3.8 Transfer Vector Table (SENDll) 

The SENDll table is used to store transfer vectors for use when 
issuing IREQ macro calls. The entry is the address at which the 
requesting routine receives control back from PIREX. This table is 
TCN ordered. 

The format of a SENDll entry is: 

0 ; task-name task-code-number 

where "task name task-code- number" is a comment. 


3.3.9 System Interrupt Vectors 

The device interrupt vector-pairs consist of interrupt routine address 
and priority level. The priority level of "all" devices should be 
Level-7 "only". This is to permit PIREX to do a context switch before 
processing the interrupt. 


3.3.10 Internal Tables Accessible to All Tasks 

All tasks in the PIREX system can easily access internal routines and 
tables through the use of the system registers. These registers begin 
at absolute location 1002g in the PDP-11 and contain either pointers 
to internal tables and listheads or entry points to commonly used 
subroutines. The following list summarizes these registers. 


3-16 



DOS-15 V3B000 Update Document 


LOCATION 

MNEMONIC 


01002 


SENDll 


01004 

CURTSK: 

000000 


01006 


POL . LH 


01010 


LISTHD 


01012 


R.SAVE 


01014 


R.REST 


01016 


AS. El 


01020 


MOVEN 


01022 


DEQU 


01024 


SEND15 


01026 


EMPTY 


01030 


ATLNP 


01032 


RATLN 


01034 


SPOLSW 


01036 


RTURN 


01040 

NBRTEV : 

NTEV 


01042 

PWRDWN : 

RTURN 


01044 

PWRUP : 

RTURN 


01046 

SPOLSW: 

000000 


01050 


DEVST 


01052 


CLTABL 


01054 


DEQUl 


01056 


CEXIT 


01060 


TEVADD 


01062 

DEVARE : 

.WORD 

DEVTYP 

01064 

DEVSPL : 

.WORD 

0 

01066 

CTLCNT : 

.WORD 

0 

01067 

SPUNIT: 

.WORD 

0 


DESCRIPTION 

INT. RETURN ADD. (ON 11) ON END 
OF I/O 

CURRENT TASK RUNNING 
ADDRESS OF POOL LISTHEAD 
ADDRESS OF TASK LISTHEADS 
ENTRY POINT TO REGISTER SAVE 
ENTRY POINT TO REGISTER RESTORE 
ENTRY POINT TO ATL RESCAN 
ENTRY POINT TO NODE MOVER 
ENTRY POINT TO DEQUEUE 
ENTRY POINT TO SEND INTERRUPT 
ENTRY POINT TO EMPTY A DEQUE 
ATL NODE POINTER TABLE 
ENTRY POINT TO RETURN ATL NODE 
SPOOLER SWITCHES ADDRESS 
REUTURN INST. ADD. FOR PIC CODE 
CURRENT NBR OF TASKS 
ENTRY POINT TO PWR FAIL DOWN 
ENTRY POINT TO PWR FAIL UP 
SPOOLER SWITCHES 
DEVICE ERROR STATUS TABLE 
TABLE, A TIME-ADDR PAIR FOR EACH 
TASK 

ENTRY TO -SET TASK IN WAIT STATE- 
ROUTINE 

ENTRY TO -SET TASK IN RUN STATE- 
ROUTINE 

TABLE OF TASK START ADDRESSES 
PIREX DEVICES SWITCH 
DEVICES SPOOLED SWITCH 
PDP-15 CTL C RUNNING COUNTER 
DEVICE CURRENTLY BEING SPOOLED TO 


These registers are accessed as absolute memory locations by various 
permanent and temporary tasks. NO CHANGE in the location or order of 
this table is permitted. New system registers may be added to the end 
of this table. 


3.4 DETAILED THEORY OF OPERATION-PIREX 


3.4.1 Request Procedure 

The UC15 system allows the PDP-15 to initiate requests to the PDP-11 by 
interrupting at the highest PDP-11 hardware level and simultaneously 
passing to it an 18-bit Task Control Block address. Only the first 16, 
bits are used because PIREX does not support an external memory option"^ 
on the PDP-11. Requests from the PDP-15 or PDP-11 could be for: 


(1) Memory management hardware support is not a feature of PIREX. 
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. a directive-handing routine 

2, a data transfer to or from a device driver task on the PDP-11 

3. a background software routine (task) 

3.4.2 Directive Handling^ 

Directive handling consists of such functions as: 

1. Connecting and disconnecting tasks from the PIREX system 

2. Reporting core status on the PDP-11 local memory to the 
calling routine 

3. Stopping I/O on a particular device or all devices 

4. Reporting UNIBUS device status to the calling routine 

2 

5. Stopping any or all tasks currently running 

6. Reporting spooler status to the caller 

3.4.3 Logic Flow 

The flow charts in Figures 3-3, 3-4, and 3-5 illustrate in detail the 
program logic flow when a request from the PDP-15 or PDP-11 is made to 
PIREX. Note that PIREX is capable of servicing requests in parallel 
on a priority basis. 

3.4.4 Operating Sequence 

PIREX is usually running the NUL task waiting for something to do. 

When a request is issued from the PDP-15 or PDP-11, PIREX immediately: 

1. saves the general-purpose registers onto the stack belonging 
to the current task running 

2. saves the stack pointer in the ATL nodes 

3. sets the task in a RUN state 

4. switches to the system stack (refer to Figure 3-5) 

All of the preceding is done at level 7 (protected) . The system stack 
is used when switching between tasks or rescanning the ATL. 

In the case of a PDP-15 request, the TCBP (Task Control Block Pointer) 
register is now immediately read by the PDP-11 allowing additional 
requests to be made. PIREX corrects the TCBP by an amount equal to 
the PDP-11 local memory when a request comes from the PDP-15. The 
TCBP is present in R4 and R5 when the IREQ macro is issued by a 
PDP-11 routine and the PDP-11 is able to address the TCB directly and 
retrieve information from it. The task code number is then obtained 
from the caller TCB and used to determine which task or directive 
that is being referenced. 


(1) See Section 3.6 for additional information. 

(2) See Section 3,5 for additional information. 
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Figure 3-4 

Scan of Active Task List (ATL) 
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Figure 3-5 

Context Switch or Save General Purpose Registers R0-R5. 
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A check is made to determine if the called task is a spooled task or 
not. If bit 7=0, it is a spooled task and if bit 7=1, it is an 
unspooled task. If the called task is a spooled task and if the SPOOLER 
is enabled, the request is processed by the SPOOLER. If the SPOOLER is 
not enabled, a check is made to determine if the task in reference is 
currently active and busy with a previous request. If so, the request 
is queued to the task's deque (TRL) on a first come, first serve basis. 

If the task in reference is currently inactive, an ATL node is built 
containing the appropriate entries, the address of the ATL node is set 
in the ATLNP table and the task's priority in the LEVEL table. Jn 
either case, the ATL is rescanned and the highest priority task is 
selected for execution (see Figure 3.4). 

UC15 peripherals, controlled by PIREX, use a minimal driver to carry out 
requested functions and report the results back to the calling task 
via the TCB. When a driver finishes a request (whether an error 
occurred or not) , it informs the requestor by placing the results (status 
and error register) in the TCB associated with that request and sends 
an optional hardware or software interrupt back to the requestor. 

The request event variable (REV) is set prior to sending an interrupt 
to the PDP-15/PDP-11 and may be used by the PDP-15 or PDP-11 to deter- 
mine if a request has been processed. This method is used during times 
when interrupts are not enabled or desired (as during the bootstrapping 
operation on the PDP-15) . The hardware interrupt to the PDP-15 (see 
Figure 3-6) is optional and can be made at any of the PDP-15 API hard- 
ware levels and trap addresses. The API level and trap address are 
specified in the TCB associated with each request to allow complete 
flexibility in interrupt control. 


3.4.5 Software Interrupt 

A software interrupt return for the PDP-11 tasks is optional. This 
feature is available only if a hardware interrupt return to the PDP-15 
is not required. To generate a software interrupt, the task using the 
request has to set the trap address before issuing the request. Each 
task running under PIREX has an entry in the SENDll Transfer Vector 
Table, PIREX traps to this location on completion of a request by 
executing a JSR PC, SENDll (Task Code *2) , The task issuing the 
request specifies its task code in the TCB, All registers are free 
to be used when the control is transferred. Control is returned to 
PIREX through an RTS PC instruction. 


3,4,6 Task Completion 

When the PDP-15 has been notified (via interrupt) that its request has 
been completed, the task completing the request under PIREX becomes 
idle and calls DEQU (see Figure 3-7) to determine if any additional 
requests are pending. If no requests are pending, control is trans- 
ferred to the ATL scanner (after saving the stack pointer and setting 
the current task in a wait state in its ATL node) , If additional 
requests exist, the next request in the task's TRL is processed as 
if it were just received. 
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Figure 3-6 

Send Hardware Interrupt to PDP-15/Sof tware Interrupt to PDP-11. 
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3 . 5 STOP TASKS 


The STOP TASKS Task is used to stop tasks and/or I/O currently underway 
for either all tasks or for a particular task. STOP TASKS can cancel 
all requests or only PDP-15 requests for the indicated task(s). There 
are four possibilities: 

1. Stop all tasks unconditionally and cancel all pending PDP-15 
requests 

2. Stop a given task unconditionally and cancel all pending PDP-15 
requests to that task 

3. Cancel all PDP-15 requests to all tasks - this has no effect 
on PDP-11 requests 

4. Cancel all PDP-15 requests to a given task - this has no 
effect on PDP-11 requests 

The process of stopping a task includes (1 or 2 above) : 

1. Removal of all appropriate PDP-15 request nodes in the 
task(s) TRL(s) 

2. Zero the Busy Idle Switch for the task(s) 

3. Clear the I/O device register (s) for the task(s) 

4. Set the tasks status in the ATL to EXIT (for a temporary 
task) or WAIT (for a permanent task) . 

5. Indicate completion by setting the REV of the STOP TASKS 
requestor. (An interrupt return is not allowed.) 

The Stop Tasks TCB has the following format; 


15 0 



current pending request unconditionally, 
bit 15 = 0 cancel PDP-15 requests 

TCN = 0 cancel all Tasks 
TCN ^ 0 cancel Task TCN only 

REV = Return Event Variable 

STOP TASKS is typically used by the PDP-15 operating system to quiet 
all interaction between the PDP-15 and the PDP-11. 

3.6 SOFTWARE DIRECTIVE PROCESSING 

The software directive task provides two main capabilities. These are; 

1. The capability to connect and disconnect temporary tasks to 
PIREX (such as MACRO- 11) . 

2. The capability to obtain various PIREX status information. 
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These capabilities are provided via five software directives, which are 
described later in this section. 

The general format for software directive task control blocks is as 
follows : 

word 0 
word 1 
word 2 
word 3 

word n 



ATA PDP-15 API interrupt vector address 

ALV PDP-15 API interrupt priority level. Must be 0, 1, 2, or 3 

(unless FCN = 3) . 

FCN Function to perform upon completion of this software directive 
request. Valid values are: 

000 Interrupt the PDP-15 at address ATA, priority ALV. 

001 Do nothing (except set REV) . 

003 Cause a software interrupt to the PDP-11 task whose 

task code number is in ALV. 

REV Request Event Variable. Initially zero, set to a non-zero 

value to indicate completion of the software directive request. 
The meaning of the various return values is described below. 

OPR Indicates the exact operation (directive) to be performed. Must 
be one of the following values: 

0 Disconnect Task 

1 Connect Task 

2 Core Status Report 

3 Error Status Report 

4 Spooler Status Report 

5 MOVE 
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Returned REV values 


1 

-300 

-400 

Other 


Successful completion 

Invalid ALV value. The request may or may not have 
been performed — see individual directive descriptions. 
The PDP-15 will be interrupted at level 3. 

Invalid OPR (directive/operation code) value. 

See individual directive descriptions. 


The following sections contain detailed descriptions of the individual 
software directives, their task control block (TCB) formats, and the 
REV values they may return. 


3.6.1 Disconnect Task Directive 

The disconnect task software directive instructs PIREX to delete a 
task from the active task list. Request should not be issued to a 
task after it has been disconnected. An attempt to issue a request 
to a disconnected task will result in a returned REV value of -200, 
implying that a non-existent task was referenced. The format of the 
task control block for the disconnect task software directive is as 
follows : 


word 0 


word 1 


word 2 


word 3 


word 4 


word 5 


word 6 


word 7 


o be disconnected. 

15 memory 
11 memory 


15 0 ^ 


; ATA I 

ALV 

1 • 1 • 1 

i FCN ; 

• > • 1 1 1 1 1 1 t I 

2^1 

t I f t 1 

! REV j 

' ' • • » 1 1 1 » t 1 1 1 1 1 I ■ 

i 000 i 
» 1 • 1 1 1 1 1 1 

TON ; 

1 • 1 1 1 1 

! REL 

» • • • 1 1 t 1 1 I I 

1 1 1 1 • 1 

First Address | 

'*'•••» 1 I 1 1 1 1 1 I 1 

unused | 

Length | 


REL 000000 if the task resides in PDP 

100000 if the task resides in PDP- 


First PDP-11 byte address of the first location in memory 

Address occupied by this task (the lowest address of the task 
stack area) . Only meaningful if the task resides in 
PDP— 11 memory — if the task resides in PDP— 15 memory 
this word is ignored. 

Length Total size (in bytes) of this task, including stack 

area, control register, busy/idle switch, and program 
code. Only meaningful if the task resides in PDP-11 
memory if the task resides in PDP-15 memory this word 
is ignored. 
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The disconnect task software directive verifies that the task to be 
disconnected is on the active task list. If present on the list, the 
task is disconnected - the active task list node is returned to the 
pool, the task's entry in the TEVADD table is cleared, and the task's 
task request list is cleared. If the task resides in PDP-11 memory, 
an attempt is made to free the memory space occupied by the task -- if 
the first free local memory address is the address immediately 
following the storage area occupied by the task (as determined from 
the first address and length arguments), the task's first address 
becomes the new first free local memory address. 

RESTRICTIONS; 

1. If a task does not have an active task list node, it cannot 
be disconnected. Therefore, once a task has been connected, 
it cannot be disconnected until after a request has been 
issued to it. 

2. All requests which are on the task request list of a task 
which is disconnected are forgotten. Such requests will 
never complete; their request event variables (REVs) will 
never be set to a non-zero value. 

3. PDP-11 local memory resident tasks should only be discon- 
nected if they are the last (highest address) task in local 
memory. If PDP-11 local memory resident tasks other than 
the last are disconnected first, the memory space occupied 
by these tasks will not be released. This will result in 
holes (of unusable memory) in the PDP-11 's local memory. 

4 . Tasks should be disconnected in reverse sequential order by 
task code number. A task should not be disconnected if there 
are any connected tasks with higher task code numbers . 

5. The high order bit of the task code number (TCN) must be 
clear. 

Returned REV values : 

1 Task successfully disconnected 

2 Task successfully disconnected, but the (PDP-11 local) 
memory occupied by this task could not be released. 

-300 Invalid ALV value, the task may or may not have been 

disconnected, its memory may or may not have been released. 

-600 Task to be disconnected is not on the active task list (i.e., 
node not present) 


3.6.2 Connect Task Directive 

The connect task software directive instructs PIREX to add a new task 
to the system. Once a task has been connected to PIREX, the PDP-15 
and/or other tasks may issue requests (task control blocks) to it. 

The format of the task control block for the connect task software 
directive is as follows: 
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15 8^7 0 


1 

U, ! 

1 

ATA ; ALV 

1 1 1 1 1 1 • 1 1 1 I 1 t 

y 

1 

1 

1 

FCN ; 201 

1 1 1 1 1 1 1 •• 1 1 1 1 

1 

1 

REV 

1 1 1 1 1 1 1 f 1 1 1 1 1 

t 


001 i TCN 


1 


1 


REL 


1 

1 I 1 1 • 1 1 t 1 t 1 • 1 

1 

t 

unused 

iiiiiiiiiiiii 

1 

1 

Entry Point 

1 1 1 1 f 1 1 ( 1 1 1 1 1 

1 


Length 

1 

1 

1 

unused { Priority 

IIIIIIIIIIIII 

1 


word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 
word 7 
word 10 


TCN The new task's task code number (TCN) 

REL 000000 if the new task resides in PDP-15 memory. 

100000 if the new task resides in PDP-11 memory. 

Entry Address of the new task's entry point ~ i.e,, the 

Point first location of the task's program code. This 
address is a PDP-11 byte address if the new task 
resides in PDP-11 memory, a PDP-15 word address if the 
new task resides in PDP-15 memory. 

Length Total size (in bytes) of the memory space occupied by 

this task, including stack area, control register, busy/ 
idle switch, and program code. Only meaningful if the 
task resides in PDP-11 memory - if the task resides in 
PDP-15 memory this is ignored. 

Priority The task's priority *40 . 

O 

The connect task directive enters the new task start address 
(appropriately relocated if the new task resides in PDP-15 memory) 
into the TEVADD table. The directive does not actually create an 
active task list node for the new task; this occurs only when the 
first request is issued to the new task. The directive clears the 
new task's busy/idle switch (sets the task in idle state) and empties 
the new task's task request list. The new task priority is placed in 
the LEVEL table. If the new task resides in PDP-11 memory, PIREX 
updates its memory usage information by adding the size of the new 
task to the first free local memory address. 
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RESTRICTIONS: 


DOS-15 V3B000 Update Document 


1. The task code number must not be in use (correspond to any 
currently connected or permanently installed task) at the 
time this directive is issued. 

2. The task code number must have been provided for when PIREX 
was assembled. As distributed by DEC, PIREX provides for 
task code numbers Og through 13g inclusive. 

3. The high order bit of the task code number must be clear. 

4. If the task resides in PDP-11 memory, the first address it 
occupies must be the first free local memory address, as 
returned by the core status report software directive. 

5. If the task resides in PDP-15 memory, it must reside 
entirely within the area addressable by the PDP-11 's 28K 
addressing range. 

6. Tasks should be connected in sequential order by task code 
niimbers. Temporary tasks (tasks which will subsequently be 
disconnected) should always be connected to a task code 
number one higher than that obtained via the core status 
report software directive. 

Returned REV values : 

1 Task successfully connected 
-300 Invalid ALV value. Task has been connected. 


3.6.3 Core Status Report Directive 

The core status report software directive returns information regard- 
ing PDP-11 local memory and task code number usage in PIREX. The 
format of the task control block for the core status report software 
directive is as follows: 


word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 
word 7 


15 8,7 0 

. , , 




ATA 

1 1 1 f 

1 

; ALV 

1 I 1 1 1 1 1 1 1 

1 



FCN 

1 t 1 1 

; 201 
f 1 1 1 1 1 1 1 1 

1 

i REV j 

1 1 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 



CM 

1 

; TCN 

1 1 1 1 • 1 1 1 1 

1 



Local 

1 1 1 I 

Memory Size 

1 1 1 1 1 1 1 1 1 

1 



First 

Iff! 

Free Address 

1 1 f 1 1 1 1 f 1 

1 

1 1 
{ unused ! 

1 • 1 1 1 1 1 • 1 1 1 1 1 1 1 1 1 

1 

1 

f 


Number 

j 

of Free Words 

f 1 1 1 1 1 1 1 I 

1 

f 

t 

1 1 
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TON 


Set to the highest currently connected task code 
number in PIREX. 


Local Mem- The amount of local memory in the PDP-11 UNICHANNEL, 
ory Size 

First Free Set to the PDP-11 byte address of the first free 
Address (unoccupied) address in local memory. 


Number of Set to the number of unused words in PDP-11 local 

Free Words memory. Equal to ((Local memory size in bytes) - 

(First free address) )/2. 


RESTRICTIONS: 


1. The core status report software directive has no restrictions. 
However, the restrictions (especially those regarding order 
of use of memory and task code numbers) on the connect and 
disconnect software directives must be adhered to in order to 
have valid information returned by core status report. 

Returned REV values : 

1 Successful completion 

-300 Invalid ALV value. No information returned. 

-500 No free PDP-11 memory. No information returned. 


3.6.4 Error Status Report Directive 

The error status report software directive returns information regard- 
ing device and/or spooler errors which have occurred since the last 
time this directive was issued. The format of the task control block 
for the error status software directive is as follows: 


15 


8,7 

0 

1 1 

ATA 

• 1 1 

; ALV 

1 1 1 1 1 1 • 1 , 1 

1 

1 1 

FCN 

1 f 1 

1 

! 201 

fiiiiiiiii 

1 

• 1 

! REV ; 

• •iiiiiiiiiiiifii 

1 1 

003 
1 1 1 

1 

unused 

' 1 1 1 1 1 1 1 1 I 

1 



Returned 


y 

{ 


Error 

; 

/ 

1 

1 

1 f 1 

Information 

1 I 1 1 1 1 1 1 f 1 1 1 

A 

f 

1 

1 1 


word 0 
word 1 
word 2 
word 3 
word 4 

word n 
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The error status report software directive copies error status informa- 
tion from the DEVST table onto the requestor's task control block, 
then clears the DEVST table to store new error information. The error 
information returned consists of a series of three word blocks, one 
per PIREX task. As distributed by DEC, eleven such blocks will be 
returned - one for each permanent task (excluding the clock task) 
plus two more for spare or temporary tasks. The number of these blocks 
returned may change, however, if users alter the number of tasks 
(especially permanent tasks) in PIREX. The format of each of these 
three word information blocks is as follows: 


1 ^ 8^7 0 


Task Name 
unused — zero 

I I I I I I I I I I I I t I I 

SPLERR ; DEVERR 

I t I I I I I I t t I I I I I 


word 0 
word 1 
word 2 


Task Name A three character (.SIXBT) mnemonic for the task to 
which the error information applies. 


DEVERR 


Device error code for device associated with this 
task 


SPLERR 


Spooler error- code for this task. 


The mnemonics for the tasks and the order in which the blocks for the 
various tasks appear are as follows: 


MNEMONIC 

EST 

ESD 

DKU 

DTU 

LPU 

CDU 

GRU 

ESP 

LVU 


TASKS 

"Stop Task" task 
Software directive task 
RK (Cartridge) disk driver 
DECTAPE driver 
Line Printer driver 
Card reader driver 
XY (Plotter) driver 
Spooler 

LVll printer/plotter driver 
spare — no mnemonic 
spare — no mnemonic 
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RESTRICTIONS: none 
Returned REV values: 

1 Successful completion 

“300 Invalid ALV value. Information has been returned. 


3.6.5 Spooler Status Report Directive 


The spooler status report software directive returns information 
regarding spooler status and devices present in PIREX. The format 
of the task control block for the spooler status report software 
directive is as follows: 


.15 


8.7 


ATA 


ALV 

fill 


0 , 


FCN 


2j2fl 

I I I I I I I 


REV 

I I I I I I 1 


004 


unused 


SPOLSW 

JL_I ! ! » » « 


DEVARE 

I I t I I I I 


DEVSPL 

I I I I I t t 

SPUN IT 

I I I I I I I I I . I I I ! 


word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 
word 7 


SPOLSW, SPUNIT , DEVARE, and DEVSPL are four locations (within PIREX) 
in which information is kept concerning spooler status and which de- 
vices have been assembled into PIREX. The spooler status report 
software directive merely copies the contents of SPOLSW, SPUNIT, 
DEVARE, and DEVSPL into the task control block. Three of these 
words consist of a number of one-bit flags. If the bit is set (1) 
the corresponding condition is asserted: the device driver is 

present, spoolable, or busy; the activity is enabled, Tf the bit 
is clear (0) the opposite condition applies: the device driver is 

absent, non-spoolable, or idle, the activity is disabled. The ex- 
act format of these three words is as follows: 


.15 8.7 0 . 

1 

SPOLSW; 

'f i 

t 

r : 

1 


1 f 

uj unused J. 

1 1 1 1 ff f 1 f 1 1 

1 

1 

It t t ' 
1 f T 1 


] 

DO 

6 

SE 

tl- 

.espooling enable( 
)Ooling enabled 
spooling and de 

1 

LP busy 
CD busy 
>CY busy 
3 

spooling enabled 


spooler connected to PIREX 
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DEVARE : 
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r i 

1 

u unused 

1 T 1 1 1 I 1 1 1 1 1 1 f I 


] 

L.P 

1 ’ ' 

XY driver present 
CD driver present 
driver present 


RK driver present 


•il 


8.7 

0, 

DEVSPL: ' 

: ^ 1 

t 

» 1 
unused ; 

> T 1 1 1 1 1 1 1 1 1 1 1 1 I 




1 

XY spoolable 
CD spoolable 



LP 

spoolable 



unused 


SPUNIT is the RK unit onto which the spooler is currently (or was pre- 
viously) spooling data. 


RESTRICTIONS: 

1. DEVSPL and SPOLSW contain zero until after the first request 
has been issued to the spooler. 

Returned REV value : 

1 Successful completion 

-300 Invalid ALV value. Information has been returned. 


3.6.6 PIREX MOVE Directive 

The PIREX MOVE directive moves information from one place in the PDP-11 's 
address space to another place in its address space. (The address space 
is composed of both Local-11 and Common Memory.) The format of the task 
control block for the PIREX MOVE directive is as follows: 


From Location 
To Location 
Words To Move 


15 


8 7 




ATA 


ALV 


FLN 


201 


REV 

« I » I I I I I 


005 

» » I I I I I I 


FROM LOCATION 

» I I I I I I I 


TO LOCATION 

' I I I I I I I 


WORDS TO MOVE 

III I I I 


word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 


PDP-11 byte address of beginning of information to be 
moved . 

PDP-11 byte address of a new starting location for 
information. 

The number of words to move . 


NOTE 1. This directive commonly is used to transfer information 
between common and local memory 
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CHAPTER 4 


TASK DEVELOPMENT 


4 . 1 INTRODUCTION 

This chapter discusses in detail the procedure for developing a task 
and for installing it into the PIREX software system. The development 
of tasks in the UC15 system normally begins by the determination of 
the function to be performed by the task. Once the basic function of 
the task has been determined and designed, the user can integrate it 
into the UC15 system. The following summary describes the steps nec- 
essary to accomplish this; 

1. Determine the priority level at which the task will execute. 

2 Design one or more appropriate TCB formats 

3. Assign a Task Code Number to the task 

4. Enter appropriate information into the various PIREX lists 
and tables. 

5. Design and code the requesting program. This is the program 
which issues requests to the task. 

6. Design and code the task. 

7. Assemble all programs and test. 

The remaining sections describe these steps in detail. 


4.2 PRIORITY LEVEL DETERMINATION 

The selection of a priority level for a newly developed task must be 
based upon its function. If the task is a device driver, a device 
priority should be selected. If the task is a data manipulation rou- 
tine, a background priority should be chosen. 



4.2.1 Device Priorities 

The device priorities are 7 (highest) through 4 (lowest) 

• Priority 7 must be reserved for certain PIREX routines and 
should not be used as a task priority. (Certain short 
instructions sequences require priority level 7 protection 
but a general use of priority 7 must be avoided.) 

• Priority 6 should be used only if interaction with the CRll 
Card Reader can be avoided. If the CRll is in use, excessive 
lOPSUC CDU 74 errors (card column lost) will occur if this 
level is used by another task executing in parallel. 

• Priorities 4 and 5 can be used in an unrestricted manner. 

There are three types of priorities to consider when selecting the 
priority of a device driver. 

1. The actual device hardware priority N 

2. The priority stored in the trap vector for the device (its 
new PS) must be priority 7 to allow an uninterrupted context 
switch. 

3. The priority at which the task will execute after the context 
switch (R.SAVE). This should be N (the above constraints 
must be considered before deciding that it will be N) . This 
priority is set in the LEVEL table (see Section 3.3.6). 


4.2.2 Background Task Priorities 

The standard UC15 PDP-11/05 computer does not differentiate between 
the software priorities 0 through 3. All software priorities are 
interruptable by any device operating at any device priority. These 
software priorities, while treated by the hardware as the same, are 
not treated by PIREX as identical. The background task's position in 
the Active Task List (the list to schedule the next task to run) is 
based upon its priority (as indicated in the LEVEL Table) . Thus a 
priority 2 task is always selected for execution before a priority 1 
task. 

It should always be remembered that the ATL is built dynamically and 
is composed of only active tasks. Thus a task's actual ability to 
execute depends both on its priority and on what other tasks of equal 
or greater priority are actually available to execute (active) . Tasks 
of the same priority are run on a first come-first serve basis. 


4.3 TCB FORMAT AND LOCATION 

The design of new Task Control Blocks (TCBs) must be governed by sev- 
eral constraints: 

1. Certain "fixed" items of information must be present. 

2. There may be a size constraint depending upon source of the 
TCB. 

3. TCBs issued by the PDP-15 have a location constraint. 
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The first three TCB words have a fixed format (see Section 3.2.5). 

The remainder of the TCB should be as follows : 

1. Control words should be allocated to fixed pre-defined loca- 
tions. 

2. Data words should be blocked into the location following the 
control words. 

3. The TCB size should be kept constant for ease of core allo- 
cation. 

Location and size constraints are interrelated: 

1. If the TCB is for a task executing under PIREX in PDP-11 
Local Memory, there is no location constraint. The TCB size 
must be kept small enough so that the TCB does not overflow 
into common memory. 

2. If the TCB is for a PDP-11 task executing in Common Memory, 
it must be positioned so that it is : 

a. present entirely in Common memory (not PDP-15 Local 
Memory , and 

b. not overlaying any of the PDP-15 monitor resident code. 

These constraints actually apply to any PDP-11 Code or data 
located beyond PDP-11 Local Memory. 

3. If the TCB is for an RSX-PLUS III routine, it must be located 
in a task partition or common area that is within the Common 
Memory . 

4. Since the specification of absolute core location is difficult 
in DOS-15, the TCB placement problem is somewhat more complex. 
The standard DOS-15 system has seven TCBs assembled into the 
resident monitor. These include TCBs for RK Disk, XYll Plot- 
ter, CRll Card Reader and LPll/LVll/LSll Printer. In addi- 
tion there are three spare TCBs of various sizes. The user 
developing his own UNICHANNEL handler should take advantage 

of these spare TCBs. .SCOM + 100 (location 200 g in PDP-15 
memory) points to a table of pointers to each of these TCBs, 
The user should select the one closest to his size requirement 
(See the DOS Systems Manual , DEC-15-ODFFA-B-D) . 


4.4 TASK CODE NUMBER DETERMINATION 

Task code numbers are composed of two fields. Bits 6 through 0 are 
used to contain the actual task code number. This is the number used 
when searching tables and lists ordered by TCN. In the DEC-supplied 
system, these numbers range from 0 through 13s* Bit 7 is used in TCBs 
to determine if the task is spooled. If bit 7=1, the task is not 
spooled. If bit 7=0, the TCBs for the task are routed to the spooler 
if the spooler is enabled. (There must then be a spooler module pre- 
pared to handle TCBs for that particular task (see Chapter 5) ) . 

Task codes 11, 12, and 13 are spare task codes in the DEC-supplied 
system. They are used in increasing order. The highest task code 
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position must not be used for a permanent task because MACll requires 
this slot for its use as a temporary task (a task that is connected 
and disconnected at run time.) 


4.5 UPDATING LISTS AND TABLES 

The installation of a new task requires placing entries into the vari- 
ous tables and lists. There are two cases: 

1 . the installation of a new task into a current spare task 
entry 

2 . the installation of a new task into a new entry (by expanding 
the tables) 

For each of these two cases there are two types of task entries: 

1 . permanent tasks 

2 . temporary tasks 

A permanent task is one that is assembled into the PIREX binary. Its 
actual starting address and priority level are known. 

A temporary task is one that is dynamically connected to and discon- 
nected from PIREX. Its starting address is dependent upon its place- 
ment in memory. (Temporary tasks must be written in Position Inde- 
pendent Code — see MACll Assembler Programmers Reference Manual DEC- 
15-LMCMA-A-D) . 

Chapter 3 describes the format of each table entry. - 


4.5.1 Temporary Task Installation — Existing Spare Entry 

To install a Temporary Task into an Existing unused Task Entry, TCN 
II 3 , 123 , or 133 , simply use the CONNECT and DISCONNECT directives. 
No new table space and no new table entries are required. 


4.5.2 Permanent Task Installation — Existing Spare Entry 

To install a Permanent Task into an Existing unused Task Entry, TCN 11 
or 12 perform the following: 

1. Update the LEVEL table entry for that TCN with the task's 
priority (see Section 3.3.6). 

2. Update the TEVADD Table entry for that TCN with the task's 
starting address (see Section 3.3.7). 


4.5.3 Temporary Task — New Entry 

To install a Temporary Task into a new Temporary Task Entry (i.e., to 
expand the table to accommodate a new Temporary Task) perform the 
following: 


4-4 



1. Add an entry to the ATLNP Table (see Section 3. 3. 1.2). 

2. Add an entry to the LISTHD Table (see Section 3.3.3). 

3. Add an entry to the LEVEL Table (use ".BYTE 0" as the priority 

value since this is a Temporary Task Entry and the actual 
task priority will be filled in by the connect directive) . 

4. Add an entry to the DEVST Table (see Section 3.3.5).^ 

5. Add an entry to the CLTABL (see Section 3.3.4). 

6. Add an entry to the TEVADD Table (use ".WORD 0" as the entry, 

since this is a Temporary Task entry that will be filled in 
by the CONNECT directive) . 

7. Add an entry in the SENDll Table (see Section 3.3.8). 


4.5.4 Permanent Task Installation — New Entry 

For a new Permanent Task, repeat the procedure in paragraph 4.5.3, for 
a new Temporary Task, with the following changes: 

1. Step 3 is changed to: Place the task's priority in the new 

LEVEL Table entry (See Section 3.3.6). 

2. Step 6 is changed to: Place the task's starting address in 

the new TEVADD entry (see Section 3.3.7). 


4.6 CONSTRUCTING DEVICE HANDLERS 

This section describes how to construct device handlers for DOS-15 and 
RSX-PLUS III. Additional information on construction of a PDP-11 
requesting task is provided. 


4.6.1 Constructing a DOS UNICHANNEL Device Handler 

The following description of how to construct a handler for the DOS-15 
monitor does not discuss those topics related to all DOS-15 handlers 
both traditional and UNICHANNEL. General issues pertaining to all 
DOS-15 device handlers can be found in the DOS Systems Manual (DEC-15- 
ODFFA-B-D) . The DOS-15 V3A000 UNICHANNEL Line Printer handler is usea 
as a descriptive example (see Figure 4-1) . Several constants should 
be defined in a UNICHANNEL handler source file before the executable 
code (see Figure 4-1, lines 49-54, 72-75). These constants include: 


(1) PIREX transfers, upon request, the entire DEVST Table to the 
PDP-15 monitor. The DOS resident monitor can accommodate a maximum of 
5 additional DEVST entries beyond the current 13g. Expansion beyond 
20s entries would require reassembly of the DOS-15 resident monitor. 
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94 
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104 
109 
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113 
116 
U7 
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LPU. 020 


lPUII edit 020 NOV. 29, 73 


000004 A 


00000 

00001 

00002 


040927 

040930 

440930 


00003 9 600936 9 


00004 

00005 

00006 
00007 
00010 
00011 
00012 
000X3 
00014 

00019 
00016 
00017 

00020 
00021 
00022 

00023 

00024 
00029 


00026 

00027 

00030 

00031 

00032 

00033 

00034 
00033 


220930 

440930 

900022 

340623 

040011 

740040 

600100 

741000 

600024 

440930 

600129 

600454 

600129 

600024 

600127 

600474 

760006 

600070 


600039 

040999 

200026 

040996 

200624 

040026 

200929 

600040 


/COPVRTGhT 1972, 73 DIGITAL EQUIPMENT CORP., MAYnaWU, MASS. 

/J.M. w0lFBE9G £S. ROOT) 

/UPU.— IflPS line printer MANOLER for LPll LINE PRINTER 
/CALLING sequence: 

/ CAL ♦ .OAT slot (9-17) 

/ FUNCTION 

/ N ARGS, WHERE N IS a FUNCTION OF "FUNCTION" 

/ NORMAL RETURN 

/BITS 12.13 OF ,SC0M*4 INDICATE PRINTER. 

/ 00« UNDEFINED. 

/ 0l« 80 COLUMNS. 

/ 10» 120 COLUMNS. 

/ 11" 132 COLUMNS. 

/ASSEMBLY Parameters: 

/ NOFFbI inhibits AUTOMATIC ENO OF PAGE FORM FE£D 

FFONT CAN be DEFINED AS NUMBER OF LINES PER PAGE IF NOFF UNDEF, 
mEFInE FFCNT in llOCTALtl 

IF FfCNT and NOFF 30TH UNDEF., 98 LINES PER PAGE IS DEFAULT. 
NOSPl produces a VERSION THAT CANT BE SPOOLED EVEN IF 

LP Spooling is enabled. 


000000 

A 

aPILVL»2 

000056' 

A 

aPISLT»96 

706141 

A 

/ 

L68F-APII.VLW20W706101 

706001 

A 

SlOA>706001 

706006 

A 

LIOR*706006 

706144 

A 

C*P1»APIlVL*20+706104 

000100 

A 

/ 

.SCOM«100 

000003 

A 

.ME0«3 

440000 

A 

I0X.IS7 

440000 

A 

S£T«ISZ 

000137 

A 

EXERR9».9C0M*37 

000001 

A 

003*1 

/ 

'.IFUNO FFCNT 

000072 

A 

F0RMS*72 


/UC15 LP API PRIORITY 
/UC15 LP API TRAP VECTOR 

/UCl9 LP SKIP 

/SKIP ON DATA ACCEPTED BY THE PDPll 
/CLEAR "DONE" FLAG AND LOAD REG FOR 
/ The PDPll. 

/CLEAR FLAG 


/USED TO SET SWITCHES TO NON-ZERO. 


’.ENOC 




‘.IFOEF 

FFCNT 



forms* 

FFCNT 





,endc 





.IFUNO 

NOSPL 


A 

ocvcnD*4 

/CODE 

FOR LP DRIVER IN PIREX 



.CNDC 





.IFOEF 

NOSPL 



0£VCOD*2o4 

/SAME 

DRIVER, disable SPOOLINGI 



;enoc 





.globl 

LPA. 




'.title 

CAL entrance 


R 

lPa. 

dac 

lpcalp 

/SAVE CAL PDINTER. 

R 


DAC 

LPARGP 

/AND ARGUMENT POINTER. 

R 


lOX 

LPARGP 

/POINTS TO WORD 2 - FUNCTION CODE. 


/ FIRST TIME 

THRU GO CAL INIT, CODE IN LBF 

R 

nEh 

JMP 

INIT /FIRST TIME THRU 00 SETUP CAL 


/ 


/AND 

SET-UP TCB AND BUFFER, OVERWRITE 


/ 

4 


/JUMP 

WITH NO-OP 

R 

i 

lac* 

LPARGP 


R 


IDX 

LPARGP 

/POINTS TO WORD 3 - BUFFER ADDRESS 

R 


and 

(17777 

/STRIP OFF UNIT NUMBER. 

R 


TAD 

(JMP LTABL-1 

/DISPATCH TO PROCESS FUNCTION. 

R 


DAC 

. + l 


A 


XX 



R 

LTaBL 

JMP 

LPIN 

/I - .INIT 

A 


SKP 


/2 - .FSTAT,.RENAM,.DLETE - IGNORE 

R 


JMP 

LPER06 

/3 - .SEEK - ERROR 

R 


lOX 

LPARGP 

/4 - .ENTER - IGNORE 

R 


JMP 

lpnext 

/9 - .CLEAR - IGNORE 

R 


JMP 

LPCLOS 

/6 . .CLOSE 

R 


JMP 

lpnext 

/7 - .MTAPE - ignore. 

R 


JMP 

LPER06 

/10 - .READ - ERROR. 

R 


JMP 

lpmrit 

/II - .WRITE 

R 


jMP 

lpmait 

/12 - .WAIT OR .WaITR 

A 

LPER06 

law 

6 

/illegal handler function. 

R 


JMP SETERR 



/ 

.title 

INTERRUPT service 


/LPU. 

interrupt service 



00036 R 040959 R 

00037 R 220626 R 


lPint 


/ 

LPPIp 


JMP 

lppic 

/PIC ENTRY, JUMP TO C 

DAC 

LFAC 

/SAVE INTERRUPTED AC 

LAC 

LPINT 

/GET INTERRUPTED PC 

DAC 

LPOUT 

/SAVE FOR COMMON EXIT 

LAC 

(JMP 

.PPIC /RESTORE PIC ENTRY 

DAC 

LPINT 


LAC 

(NOP 

/WE DON'T NEED ION IN 

JMP 

LPICM 

/JOIN common CODE 

MAC 

lpac 

/PIC CODE, SAV AC 

lac* 

(0 

/GET interrupted PC 
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121 

122 

123 

124 
129 
126 

127 

128 
129 
190 

131 

132 
193 
134 
139 

136 

137 

138 

139 

140 

141 

142 

143 

144 
149 

146 

147 

148 

149 

190 

191 

192 

193 

194 
199 

196 

197 

198 

199 
160 
161 
162 

163 

164 
169 
166 

167 

168 

169 

170 

171 

172 

173 

174 
179 

176 

177 

178 

179 

180 
181 
182 
189 
184 
189 
186 

187 

188 

189 

190 

191 

192 

193 

194 
199 

196 

197 

198 

199 

200 
201 
202 

203 

204 
209 
206 

207 

208 

209 

210 
211 
212 

213 

214 
219 
216 


00040 R 040596 9 


OAC 

lpout 

/SAVE 

00041 H 200627 R 


LAC 

CION 

/NEED INTERRUPT ON INST. IN common CODE 

00042 R 040092 R 

lPICM 

04C 

LPISW 


00043 R 706144 4 


C4PI 


/CLEAR Flag, now in common code 

00044 R 220942 R 


L4C* 

lpev 

/EVENT variable from PIREx 

00045 R 742010 4 


RTL 


/PDP-11 (MINUS) BIT TO OUR 4C0 

00046 R 743120 4 


SPAIRTR 


/* IS OK 

00047 R 600095 R 


JMP 

LPIERR 

/ERROR, GO LOOK 

00050 R 140533 R 

LPIRT 

OZM 

LPUND 

/CLEAR UNDERWAY FLAG 

00091 R 200555 R 

lPIRTI 

LAC 

lpac 

/RESTORE AC 

00092 R 740040 4 

LPISh 

hlt 


/ION OR NOP 

00093 R 703344 4 


OBR 



00054 R 620556 R 

/ 

JMP* 

lpout 


00095 R 500630 R 

t 

lPICRR 

4N0 

C177777 

/KEEP real 16 bits FROM POP-11 

00096 R 540631 R 


SAD 

C177001 

/CODE FROM OUT OF NODES IN PIREX 

00057 R 600062 R 


JMP 

RETRY 

/JUST TRY AGAIN, LEAVING LPUND SET 

00060 R 340832 R 


TAD 

C600000 

/MAKE - NUMBER FOR lOPS 

00061 R 600070 R 


JMP 

seterr 

/TREAT AS regular IOPS ERROR 


/ 

/ 



/NOTE that this SHOULDN'T MAPPER. 

00062 R 200537 R 

/ 

retry 

LAC 

LPTCB 

/TCB address 

00063 R 160942 R 


nZM* 

lpev 

/CLEAR EVENT VARIABLE 

00064 R 706001 4 


SIOA 



00069 R 600064 R 


JMP 

.-1 

/ 

00066 R 706006 A 


lior 


/THIS SENDS the TCB AODR. TO THE PDP-11 

00067 R 600091 R 

/ 

JMP 

LPIRTI 

/EXIT FROM interrupt 


/ 

'.title 

error routine 

00070 R 040077 R 

seterr 

OAC ERRNUM 


00071 R 740000 4 

eRloop 

nOP 


/'JMP LPTRY' if IOPS 4 ERROR. 

00072 R 200077 R 


lac ERRNUM 


00073 R 120633 R 

eRqut 

JMS* (EXERRS 


00074 R 600071 R 


JMP erloop 


00075 R 777777 4 


law -1 



00076 R 142025 4 


■.8IX0T 

•LPU' 


00077 R 000000 4 

ERRnum 

0 


/holds error number for repeat. 


/ 

.title 

,INIT function 


/.INTT 




00100 R 440530 R 

LPIN 

TDX 

LPARGP 


00101 R 200944 R 


lac 8UFSIZ 

/36(10) FOR 80 cols; 56(14) FOR 132 

00102 R 060930 R 


nAC* LP4RGP 

/return to user. 

00103 R 440530 fi 


lOX lpargp 

/NOW points to return. 

00104 R 200531 R 


LAC 

PAGSIZ 

/LF COUNTER 

00109 R 040532 R 


nAC 

PAGCNT 


00106 R 220527 R 


1 AC* 

LPCALP 

/DOES TNTT inhibit auto FORmS FEED 

00107 R 500634 R 


4ND 

(4000 

/This is inhibit bit 

00110 R 340535 R 


TAD 

ffff 

/FFFF assembled AS NOP FOR NOFF, ISZ IF NOT 

00111 R 540535 R 


S4D 

FFFF 

/SKIP IF INIT INHIBITS FF 

00112 R 741000 4 


SKP 


/INIT DOESN'T INHIBIT, USE ASSEMBLED VALUE 

00113 R 200625 R 


LAC 

(NOP 

/INIT inhibits it, use nop 

00114 R 040534 R 


nAC 

FFSW 

/THIS SWITCH XCT'EO BY FORMS CONTROL 


/ 



/SECTION IN PUTCH SUBROUTINE 

00115 R 100443 R 


jMS 

RESETL 

/RESET Tab 4N0 LINE WIDTH COUNTERS 

00116 R 100512 R 


JMS 

LPIOCK 

/CHECK LP BUSY 

00117 R 140551 R 


nZH 

COP 

/SAY 4 FF OCCURRED 

00120 R 750030 4 


CLAJIAc 


/COUNT OF ONE BYTE FOR HEADER 

00121 R 060540 R 


04C* 

LPBUF 

/HEADER 

00122 R 723013 4 


4AC 

13 

/FORM FEED 

00123 R 060541 R 


nAC* 

LP8UF0 

/FOR BUFFER 



.IFUND 

NOFF 

/DO only if NOFF NOT DEFINED 

00124 H 100517 R 


JMS 

LPSET 

/THIS sends req. to pop-u 



'.ENOC 




/M0RM4I. 

CAL EXIT 


00125 R 703344 4 

/ 

lPnext 

dbr 



00126 R 620530 R 


JMP* 

LPARGP 




’.title . 

WRITE FUNCTION 


/.WRITE 




00127 R 100512 R 

/ 

LPwriT 

JMS LPIOCK 

/PRINTER BUSY? 

00130 R 220927 R 


lac* lpcalp 

/GET THE DATA MODE FROM THE USER CAL 

00131 R 500639 R 


and 

(1000 

/MAKE SKP-NOP IN MIX 

00132 R 240636 R 


XOR 

(SKP 


00133 R 040554 R 


OAC 

MIX 


00134 R 220930 R 


lac* 

LPARGP 

/user BUFFER ADDRESS. 

00135 R 440530 R 


IDX lpargp 

/NOW POINTS TO WORD COUNT 

00136 R 040550 R 


nAC 

TCHAR 

/SAVE POINTER TO BUFFER HEADER 

00137 R 723002 A 


4AC 

2 

/hake X12 POINT TO DATA NOT HEADER 

00140 R 040597 R 

f 

nAC 

X12 

/GETTER POINTER 


/ SET- 

UP limit 

OF INPUT 

BUFFER SIZE TO PREVENT OaTA OVERRUN 


/ FOR 

BOTH lOPS 

ASCII AND image ASCII 

00141 R 777000 A 


LAW 

17000 

/GET PAIR COUNT FROM LEFT HALF 

00142 R 520590 R 


AND* 

TCHAR 


00143 R 740030 4 


SWHA 


/bring To RIGHT. PAIR COUNT INCLUDES HEADER 


/ 



/PAIR COUNT, we ISZ BEFORE LOOP SO THAT'S 
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217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 
239 

236 

237 

238 

239 

240 

241 

242 

243 

244 
249 
248 

247 

248 

249 

290 

291 

292 

293 

294 
299 

296 

297 

298 

299 
260 
261 
262 

263 

264 
269 
266 

267 

268 

269 

270 

271 

272 

273 

274 
279 

276 

277 

278 

279 

280 
281 
282 

283 

284 
289 
286 

287 

288 


00144 

R 

400994 

R 


XCT 

MIX 

00149 

R 

791001 

A 


SKP'CLAICMA 

00146 

R 

741031 

A 


SKPJCMAIIAC 

00147 

R 

380930 

R 


TAD* 

lpargp 

00190 

R 

040943 

a 

/ 

DAC 

TEMPI 

00191 

R 

440330 

R 


TSZ 

LPARGP 

00192 

R 

200941 

R 


LAC 

lpbufo 

00193 

R 

040960 

R 


DAC 

PUTP 

00194 

R 

200339 

R 


LAC 

GETIN 

00199 

R 

040332 

R 


DAC 

GETSW 

00196 

R 

200431 

R 


L*C 

PUTIN 

00197 

R 

040427 

R 


DAC 

PUTSW 

00160 

R 

790000 

A 


CLA 


00161 

R 

400994 

R 


XCT 

MIX 

00162 R 

200637 

R 


L*C 

(400 

00163 

R 

060540 

R 


DAC* 

lpbuf 

00164 

R 

750001 

A 


CLAJCMA 


00169 

R 

060541 

R 

/ 

DAC* 

lpbufd 


/OK, I0P9 NOW ser xcpt ch*ji*c 

/SKIP IP ASCII, NOT IF IrtAGfc 

/IMAGE -1 IN AC, SKIP. -1 BECAUSE KF ISZ FIPST 

/loPS complemented to correct value 

/IMAGE ADO IN TOTAL WORD COUNT, INCL 

/TNO WORDS FOR header. wE IS7 BEFORE LOOP. 

/INTO controller, both MOOES 

/MOVE ARG POINTER TO EXIT 

/POINTER TO DATA PORTION OF RuFFE« 

/LOAD TO character PUTTER POINTER 
/INIT. char getter 

/INIT CHAR PUTTER 

/INIT OUTPUT BUFFER HEADER 
/TO 0 IF lOPS, 400 FOR image 


/COUNT OF 1 BLANK AS DEFUALT 
/FOR zero length IOPS LINE 
/IN FIRST Data CHAR 


/ HAIM LOOP To transfer CHAR'S TO HANDLER PUFFER 


00166 

00167 

00170 

00171 

00172 

00173 

00174 
00179 

00176 

00177 
00200 


R 

100320 

R 

main jhS 

GETCH 

/CHARACTER GETTER, LEAVES IT 

IN 

AC 

R 

741200 

A 

SNA 


/SKIP unless null char 



R 

600166 

R 

jMP 

MAIN 

/NULL, IGNORE 



R 

540640 

R 

SAD 

(177 

/IGNORE RUB-OUT 



P 

600186 

R 

jMP 

MAIN 

/main 



R 

040990 

R 

DAC 

TCHAR 

/SAVE char THROUGH TESTING 



R 

723740 

A 

AAC 

-40 

/SEPARATE 'TEXT' CHAR'S FROM 

cc* 

<TMOL CHAR'S 

R 

741300 

A 

SNAISPA 


/SKIP ON REGULAR CHARS 



R 

600235 

R 

JMP 

HSPEC 

/GO DO SPECIALS 



R 

540641 

R 

SAD 

(135 

/ALT MODE 



R 

630302 

R 

jMP 

UCLP03 

/ENp OF line On alt mode 




THE LOGIC AT PIJTCH TO DO FORMS CONTROL DOESN'T DU IMPLIED 
LINF feeds, I.E. those LINES HAVING NO LEADING CONTROL CHAR. 
WE MUST Fake it out by placing a line feed ON SUCH LINES! 


00201 

R 

200947 

R 


lac 

FIRST 

/DO onlt if first char of line is 

regular 

00202 

R 

740100 

A 


SNA 


/SKIP IF FIRST CHAR 


00203 

R 

600206 

R 


JHP 

.♦3 

/NOT first char, JUST CONTINUE 


00204 

R 

200642 

R 


LAC 

(12 

/HERE IS LINE FEED 


00209 

R 

100366 

R 


JHS 

PUTCH 

/AND CALL TO DO FORMS CONTROL 


00206 

R 

790030 

A 

i 

rL*lI*C 


/SET FLAG Saying a real char since 

A FF 

00207 

R 

040991 

R 


OAC 

COP 



00210 

R 

200592 

R 

/ 

LAC 

BLANKC 

/oo WE have pending blanks/tabs TD 

send 


NOTF blankc has minus count of consective blanks/tabs 
SINCE POP-11 controller prints Only blanks 


00211 R 744100 4 


00212 R 600223 R 

00213 R 340643 R 


00214 

00219 
00216 
00217 

00220 
00221 
00222' R 

00223 R 

00224 R 

00229 R 

00226 R 

00227 R 

00230 R 


790100 A 

600221 R 

340643 R 
100366 R 
200643 R 
340992 R 
100366 R 
140992 R 
200990 R 
100366 R 
440993 R 
330232 R 
777770 A 


hAind 

mainc 


maink 


SMAJCLL 

jmP 
TAD 

SMAICLA 

JMP 

TAO 

JHS 

L*C 

TAO 

JMS 

nZM 

lac 

jHS 

ISZ 

• up 
law 


MAiNC 

C200 


MAINO 

C200 

putch 

C200 

BLANKC 

putch 

BLANKC 

TCHAR 

PUTCH 

TABC 

Ml TUC 

-lo’*" 


/SKIP IF any collected, TO PUT OUT PEFORE 
/REAL CHAR'S 

/NONE, PENDING, GO PUT OUT THE CHAR 

/TOUGH, IF MORE than 127 COLLECTED, MUST 

/PUT OUT TWO COUNTS 

/SKIP IF need two COUNTS 

/NO, JUST PUT OUT COLLECTED COUNT 

/TWO COUNTS, HERE IS FIRST 

/SET UP TO 00 SECOND 

/COMMON CODE, last COUNT FOR EITHER CASE 

/CLEAR OUT BLANK COUNTER 

/GET BACK original CHAR 

/TO OUTPUT BUFFER 

/INCREMENT TAB COUNTER 

/NOT OyERFLOW, GO CHECK LINE COUNTFr 

/reset'tab’counter 


299 

00231 

R 

040993 

R 


DAC 

TABC 


200 

00232 

R 

440949 

R 

MAINE 

TSZ 

HAXC 

/HAVE WE RUN OUT OF LINE 

291 

00233 

R 

600166 

R 


jMP 

MAIN 

/NO 

292 

00234 

R 

600302 

R 


JMP 

UCLP03 

/YES, GO FINISH UP, WITH END OF LINE 

293 





/ 




294 





/ SPECIAL characters 


209 





/ 




299 

00235 

R 

790201 

A 

mSPEC 

SZAtCLAtCMA 

/SKIP IF IT IS A blank 

297 

00239 

R 

600242 

R 


jHP 

HSPEC2 

/NOPE, CHECK FOR OTHER THINGS 

298 

00237 

R 

340552 

R 


TAD 

BLANKC 

/ADO ONE TO BLANK COUNTER CIS MINUS COUNTER) 

200 

00240 

R 

040952 

R 


DAC 

BLANKC 


366 

00241 

R 

600226 

R 


JMP 

HAINK 

/JOIN LINE AND TAB CONTROL SECTION 

361 

00242 

R 

200590 

R 

m8PEC2 

LAC 

TCHAR 

/GET BACK ORIGINAL CHAR 

362 

00243 

R 

540644 

R 


SAD 

(11 

/IS IT A TAB 

363 

00244 

R 

600266 

R 


jMP 

MTAB 

/YUP, GO DO IT 

364 

00245 

R 

940645 

R 


SAD 

CIS 

/CARRIAGE return 

369 

00246 

R 

600302 

R 


jMP 

UCLP03 

/ENO OF line on carriage RETURN 

366 

00247 

R 

540946 

R 


SAD 

(20 

/FORTRAN OTS OVERPRINT, 00 AS CR 

367 

00290 

R 

600263 

R 


JMP 

hCR 


368 

00291 

R 

540647 

R 


SAD 

(14 

/FORM FEED 

569 

00292 

R 

600296 

R 


JMP 

MSPEC3 

/JUST PUT IT OUT, FOR NOW 

310 

00253 

R 

940690 

R 


S*D 

(21 

/FORTRAN DOUBLE SPACE 

311 

00254 

R 

600260 

R 


JMP 

HSPEC4 

/DO AS TWO 12'S 
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312 

00255 

R 

200642 

R 

mSPEC3 

LAC 

C12 

/DEFAULT ON UNRECOGNIZED CONTROL CHaR. IS LINE FEED 

313 

00256 

R 

100356 

R 

mSPEC3 

JMS 

PUTCH 

/PLACE In buffer 

314 

00257 

R 

600166 

R 


JMP 

MAIN 

/GO DO NEXT 

315 

00260 

R 

200642 

R 

mSpec4 

lac 

tl2 

/FIRST OF Two 12 'S FOR THE 21 

31S 

00261 

R 

100366 

R 


IMS 

PUTCH 


317 

00262 

R 

600255 

R 


JMP 

MSPEC5 

/GO DO the second 112 

318 

00263 

R 

100443 

R 

mCR 

JMS 

RESETL 

/NEW LINE, reset various GUYS 

319 

00264 

R 

200645 

R 


I.AC 

CIS 

/CARRIAGE return 

320 

00265 

R 

600256 

R 


JMP 

MSPEC3 

/PUT CHAR AND LOOP 

32l 

00266 

R 

200553 

R 

hTab 

LAC 

TABC 

./GET remaining COUNT FOR TAB 

322 

00267 

R 

340552 

R 


TAD 

BLANKC 

/AND ADD TO CUMULATIVE BLANK COUNT 

323 

00270 

R 

040552 

R 


nAC 

BLANKC 


324 

00271 

R 

200553 

R 


LAC 

TABC 

/AND TO line checker 

325 

00272 

R 

740031 

k 


CMAtlAC 


326 

00273 

R 

340546 

R 


TAD 

MAXC 


327 

00274 

,R 

040546 

R 


OAC 

MAXC 


328 

00275 

R 

740100 

k 


SMA 


/SKIP IF some line left 

329 

00276 

R 

600302 

R 


jMP 

UCLP03 

/NONE LEFT, FINISH UP LINE 

330 

00277 

R 

777770 

k 


law 

-10 


331 

00300 

R 

040553 

R 


OAC 

TABC 

/RESET Tab counter 

332 

00301 

R 

600166 

R 


JMP 

MAIN 

/NEXT char 

333 





/ 




334 

00302 

R 

200645 

R 

UCLP03 

LAC 

C15 

/CARRIAGE return 

335 

00303 

R 

400554 

R 


XCT 

MIX 

/PLACE IN buffer only ON IMAGE! 11 

338 

00304 

R 

100366 

R 


jMS 

PUTCH 


337 

00305 

R 

100443 

R 


JM3 

RESETL 


338 

00306 

R 

440551 

R 

UCLP04 

TSZ 

COP 

/A BLANK LINE IS STILL A REAL CHaH SINCE FF 

339 . 

00307 

R 

220540 

R 


lac* 

lpbuf 

/ZERO char COUNT?? 

340 

00310 

R 

500651 

R 


and 

C377 

/COUNT Only in low b bits 

341 

00311 

R 

740200 

k 


SZA 


/SKIP if ZERO COUNT 

342 

00312 

R 

600316 

R 


JMP 

UCLP05 

/non-zero, JUST GO 00 REGULAR 

343 

00313 

R 

400554 

R 


XCT 

MIX 

/IMAGE DR lOPS 

344 

00314 

R 

600125 

R 


JMP 

lpnext 

/image DO nothing 

345 

00315 

R 

460540 

R 


ISZ* 

lpbuf 

/lOPS MAKE FAKE 1 COUNT 

348 





/ 



/wE are doing a blank line, and 0 

347 





/ 



/COUNT makes spooler very III 

348 

00316 

R 

100517 

R 

UCLP05 

JMS 

LPSET 

/send buffer to PDP-11 

349 

00317 

R 

600125 

R 


JMP 

lpnext 

/CAL exit 

350 





/ 




351 





/ 

CHARACTER UNPACKING ROUTINE 

352 





/ 




353 





/ 




354 





/ This 

routine 

• OWNS' 

the mq 

355 





/ 




356 





/ 




357 





/ characters are obtained from X12 POINTER. EACH CHAR 

358 





/ IS RETURNED 

RIGHT justified IN THE AC 

359 





/ TEMPI HAS A 

MINUS count of THE WORDS TO BE OBTAINED 

360 





/ FROM 

THE INPUT POINTER X12 

361 





/ 




362 

00320 

R 

000000 

A 

GETCH 

0 



363 

00321 

R 

400554 

R 


XCT 

MIX 

/SKIP IF it is ascii 

364 

00322 

R 

741000 

A 


SKP 



365 

00323 

R 

620332 

R 


JMP* 

GETSW 

/GETSH is pointer to correct action on ONTHE 

366 





/ 



/CORRECT ONE OF THE FIVE POSSIBLE CHAR'S 

367 





/ 




368 





/ NOW 1 

DO IMAGE 

MODE 


369 





/ 




370 

00324 

R 

440543 

R 


TSZ 

TEMPI 


371 

00325 

R 

741000 

A 


SKP 


/SKP ON not thru yet 

372 

00326 

R 

600306 

R 


JMP 

UCLP04 

/DONE 

373 

00327 

R 

220557 

R 


lac* 

X12 


374 

00330 

R 

440557 

R 


ISZ 

X12 


375 

00331 

R 

600333 

R 


jMP 

GETCM 

/FINISH UP IN COMMON 

376 





/ 




377 

00332' 

R 

000000 

A 

GETSW 

0 


/pointer TO CORRECT ACTION, INIT'ED FROM GETIN 

378 





/ 



/filled by JMS GETSW AFTER EACH CHAR 

379 

00333 

R 

500640 

R 

GETCM 

and 

(177 

/COMMON FINISH UP, STRIP XTRA BITS 

380 

00334 

R 

620320 

R 


jMP* 

GETCH 

/OUT 

381 





/ 




382 

00335 

R 

000337 

R 

GETIN 

GETI 


/INIT GETSW TO POINT TO FIRST CHAR ACTION 

383 





/ 




384 





/ INDTVtOUAL character 

ACTION 

385 





/ 




386 

00336 

R 

100332 

R 

getq 

JMS 

GETSW 

/after 5TH CHAR, POINT SACK TO FIRST 

387 





/ 




388 

00337 

R 

440543 

R 

geti 

ISZ 

TEMPI 

/OUT OF PAIRS? 

389 

00340 

R 

600343 

R 


jMP 

.*3 

/CONTINUE IF OK 

390 

00341 

R 

100443 

R 


JMS 

RESETL 

/end of line Reset sone stuff 

391 

00342 

R 

600306 

R 


JMP 

UCLP04 


392 

00343 

R 

220557 

R 


LAC* 

X12 

/FIRST WORD OF PAIR 

393 

00344 

R 

440557 

R 


ISZ 

X12 


394 

00345 

R 

652000 

A 


lmq 


/INTO MQ FOR SHIFTING 

395 

00346 

R 

640607 

A 


LLS 

7 


396 

00347 

R 

100332 

R 


JMS 

GETSW 

/DONE, LEAVE POINTER FOR SECOND CHAR 

397 

00350 

R 

640607 

A 

GET2 

LLS 

7 

/SECOND CHAR 

398 

00351 

R 

100332 

R 


JMS 

GETSW 

/LEAVING pointer FOR THIRD 

399 

00352 

R 

640604 

A 

gets 

LLS 

4 

/THE half-and-half CHAR 

400 

00353 

R 

040332 

R 


OAC 

GETSW 

/VERT TEMPORARY 

401 

00354 

R 

220557 

R 


lac* 

X12 

/CAN'T END IN MIDDLE OF PAIR 

402 

00355 

R 

440557 

R 


TSZ 

X12 


403 

00356 

R 

652000. 

A 


lmq 


/SECOND WORD TO SHIFTER 

404 

00357 

R 

200332 

R 


LAC 

GETSW 

/bring back first 

405 

00360 

R 

640603 

A 


LLS 

3 

/complete char 

406 

00361 

R 

100332 

R 


JMS 

GETSW 

/leaving pointer to fourth action 

407 

00362 

R 

640807 

A 

GET4 

LLS 

7 
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408 

00383 

R 

100332 

R 


JHS 

getsm 

/leaving •’OR 5 


400 

00384 

R 

640607 

A 

GET9 

LL8 

7 



410 

00369 

R 

900330 

R 


JMF 

GETO 

/BACK TO TOP FOR POINTER TO 1 


411 





/ 





412 





/ 





413 





/ 





414 





/ character putter pqr 

PDP-11 


419 





/ 





418 





/ THO 

CHAR'S PER WORD FORMAT. FIRST CHAR IS RIGHT JUSTIFIED. 

SECOND 

417 





/ 18 placed immeoiatelt 

' ABOVE FIRST, LEAVING TOP TWO BITS OF 

WORD 

418 





/ UNUSED. CHAR 

IS OELEVERD TO US IN AC. INIT PUTSW BY DAC'ING CONTENTS 

419 





/ OP PUTIN INTO IT. ROUTINE COUNTS THE OUTPUT CHARS IN LBF 


420 





/ 





421 





/ THIS 

routine 

ALSO HANDLES FORM FEED PAGE CONTROL 


422 





/ the 

PDP-11 ASSUMES LINES HAVE A LF IN BEGINNING AND CR AT 

END 

423 





/ 80 this routine removes. any leading lf. 


424 





/ 


• 



429 





/ 





428 

00366 

R 

000000 

A 

PUTCH 

0 




427 

00367 

R 

500651 

R 


and 

C377 

/STRIP TO EIGHT BITS 


428 

00370 

R 

540642 

R 


8*0 

C12 

/SPECIAL case #1, LINE FEED 


429 

00371 

R 

600400 

R 


.IMP 

putlf 

/GO 00 IT 


430 

00372 

R 

940647 

R 


SAD 

C14 

/SPECIAL case «2, FORM FEED 


431 

00373 

R 

600419 

R 


JMP 

PUTFF 

/GO DO IT 


432 

00374 

R 

440547 

R 

PUTT 

ISZ 

FIRST 

/BUMP FIRST time THRU SWTICH 


433 

00379 

R 

740000 

A 


NOP 


/IN CASE SKIPS, WE DON'T NEED IT HERE 


434 

00376 

R 

400540 

R 

PUTZ 

ISZ* 

lpbuf 

/COUNT AN OUTPUT CHAR 


439 

00377 

R 

620427 

R 


.IMP* 

PUTSM 

/DISPATCH TO FIRST OR SECOND CHAR ACTION 

438 





/ 





437 

00400 

R 

200551 

R 

PUTLP 

l*c 

COP 

/HAS A REAL char OCCURRED SINCE FF? 


438 

00401 

R 

740200 

A 


SZA 


/SKIP IF NO REAL CHAR 


430 

00402 

R 

600412 

R 


JMP 

PUTH 

/GO 00 REGULAR 


440 

00403 

R 

220541 

R 


lac* 

lpbufo 

/IF wE already have a FF 


441 

00404 

R 

540647 

R 


SAD 

C14 

/IN BUFFER OUT, DON'T NEED A CR 


442 

00405 

R 

620366 

R 


JMP* 

PUTCH 



443 

00408 

R 

200649 

R 


LAC 

CIS 

/lead with CR. SO PDP-11 DOESN'T PUT 

ON automatic lf 

444 

00407 

R 

400994 

R 


XCT 

MIX 

/BUT DO nothing for ImaGE MODE 


449 

00410 

R 

620366 

R 


JMP* 

PUTCH 



448 

00411 

R 

600374 

R 


JMP 

PUTY 

/GO REAJOIN 


447 

00412 

R 

200642 

R 

PUTN 

LAC 

(12 

/GET BACK LINE FEED 


448 

00413 

R 

400934 

R 


XCT 

FFSW • 

/ISZ OR NOP FOR COUNT OF FF PER PAGE 


449 

00414 

R 

600422 

R 


JMP 

putlfr 

/NO FORM FEED NOW 


490 

00419 

R 

200931 

R 

PUTFP 

LAC 

PAGSIZ 

/FORM FEED, RESET PAGE COUNTER 


491 

00416 

R 

040932 

R 


DAC 

PAGCNT 



492 

00417 

R 

140991 

R 


nZM 

COP 

/Flag saying ff occurred. 


493 

00420 

R 

200647 

R 


LAC 

(14 

/form feed CODE 


494 

00421 

R 

600376 

R 


JMP 

PUTZ 

/GO COUNT CHAR, AND PLACE IT 


499 

00422 

R 

400994 

R 

putlpr 

XCT 

MIX 

/SKIP ON lOPS ASCII 


498 

00423 

R 

600374 

R 


JMP 

PUTY 

/image, ACTUALLT PLACE LF 


497 

00424 

R 

440947 

R 


ISZ 

FIRST 

/ASCII, IS IT FIRST THRU? 


498 

00425 

R 

600376 

R 


JMP 

PUTZ 

/NOT FIRST, DO lf 


499 

00428 

R 

620366 

R 


jMP* 

PUTCH 

/FIRST time, just RETURN 


490 

00427 

R' 

000000 

A 

PUTSH 

0 


/INIT'EO AS PUTl. filled LATER BY JMS 

PUTSW 

481 

00430 

R 

620366 

R 


jMP* 

PUTCH 

/DONE, return 


482 





/ 





463 

00431 

R 

000433 

R 

pUTiN 

PUTl 


/start at first char 


464 





/ 





489 

00432 

R 

100427 

R 

PUTO 

JHS 

PUTSM 

/leave pointer for first after second 


488 

00433 

R 

060560 

R 

PUTl 

DAC* 

PUTP 

/first character action, place right 

JUSTIFIED 

467 

00434 

R 

100427 

R 


JMS 

PUTSM 

/LEAVING POINTER FOR SECOND 


468 





/ 





489 

00435 

R 

746030 

A 

PUT2 

CLUSWHA 

/PUT CHAR IN RIGHT PLACE 


470 

00436 

R 

740020 

A 


RAR 




471 

00437 

R 

200960 

R 


XOR* 

PUTP 

/PUT HALVES TOGETHER 


472 

00440 

R 

060960 

R 


OAC* 

PUTP 

/BOTH IN BUFFER 


473 

00441 

R 

440560 

R 


ISZ 

PUTP 

/MOVE pointer 


474 

00442 

R 

600432 

R 


JMP 

PUTO 

/GO TELL PUTSW THAT PUTl IS NEXT 


479 





/ 





470 





/ OUTTNE TO reset LINE 

AND TAB COUnTRS 


477 





/ 






S8443 

n 

WWW 

A 






479 

00444 

R 

777777 

A 


lam 

-1 

/SET FIRST CHAR OF LINE REMEMBERER 


480 

00445 

R 

040947 

R 


OAC 

FIRST 



401 

00446 

R 

777770 

A 


lam 

• 10 

/SET TAB COUNTR 


482 

00447 

R 

040993 

R 


OAC 

TABC 



403 

00450 

R 

200949 

R 


LAC 

linlim 

/SET UP MAX PER LINE COUNTER 


484 

00451 

R 

040940 

R 


OAC 

MAXC 



489 

00452 

R 

140592 

R 


nZM 

BLANKC 

/RESET SPACE AND TAB COUNTER 


488 

00453 

R 

620443 

R 


JMP* 

RESETL 



487 





/ 





480 






'.title 

.CLOSE FUNCTION 


489 





/ 





498 





/ 





491 





/.CLOSE 




492 





/ 





493 

00454 

R 

100512 

R 

LPCLOS 

jMS 

LPIOCK 

/CHECK I/O underway. 


494 

00455 

R 

140991 

R 


nZM 

COP 

/SAY A FF OCCURRED 


499 

00496 

R 

440470 

R 


ISZ 

LPCLSM 

(777777 IN AC IF HAVEN'T BEEN 

thru close COni 

406 

00497 

R 

600471 

R 


JMP 

LPCLON 

/done. 


497 

00460 

R 

750030 

A 


CLAIIAc 


/SPOOLER REQUIRES FF,CR AS CLOSE 


490 

00461 

R 

000940 

R 


DAC* 

LPBUF 

/JUST GIVE FF TO DRIVER, HOWEVER 


499 

00462 

R 

200692 

R 


LAC 

(6414 

/THIS IS FF.CR IN PDP-11 


9W 

00463 

R 

080541 

R 


DAC* 

lpbufo 

/FIRST OaTa word pointer 


901 





/ 





902 

00464 

R 

100917 

R 


JMS 

LPSET 

/SEND BUFFER TO POP-11 
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903 


R 

n 

R 



RESETL 

/RESET the world 

904 

00466 

R 

703344 

A 

lPcalx 

OBR 



909 

00467 

R 

620927 

R 


JMP* 

LPCALP 

/hang on CAL. 

906 

00470 

R 

777777 

A 

lPCLSW 

777777 


/-I » .CLOSE NOT DONE. 

907 

00471 

R 

777777 

A 

UPCLON 

law -1 



908 

00472 

R 

040470 

R 


ilAC 

lpclsw 

/initialize .CLOSE INDICATOR 

909 

00473 

R 

600125 

R 


.IMP 

lpnext 

/EXIT. 

910 






.title 

.WAIT FUNCTION 

911 





/ 




912 





/.4ATT 

OR .WAITR 


913 





/ 




914 

00474 

R 

220527 

R 

lPwaIT 

lac* 

LPCALP 


919 

00475 

R 

500633 

R 


ano 

(1000 


916 

00476 

R 

741200 

A 


SNA 


/BIT 8 « 1 FOR .WAITR 

917 

00477 

R 

600510 

R 


tMP 

LPWATl 

/.wait - GO HANG ON CAL. 

918 

00900 

R 

200653 

R 


LAC 

(700000 

/LINK, ETC. 

919 

00901 

R 

500527 

R 


ANO 

LPCALP 


920 

00902 

R 

040527 

R 


OAC 

LPCALP 


921 

00503 

R 

220530 

R 


lac* 

LPARGP 

/15-BIT BUSY ADDRESS. 

922 

00504 

R 

500654 

R 


ANO 

(77777 


923 

00909 

R 

240527 

R 


XOR 

LPCALP 


924 

00906 

R 

040527 

R 


DAC 

LPCALP 


929 

00907 

R 

440530 

R 


TDX 

LPARGP 


926 

00^10 

R 

100512 

R 

LPWATI 

JMS 

LPIOCK 

/CHECK I/O UNDERWAY. 

927 

00511 

R 

600125 

R 


.IMP 

lpnext 

/OK - RETURN. 

928 





/ 




929 





/Check 

FOR I/O 

UNDERWAY 


930 





/ 




931 





/LPUnd 

0 WHEN FREE« NON0. WHEN BUSY 

932 





/ 




933 

00512 

R 

000000 

A 

lPIOCK 

0 



934 

00913 

R 

200933 

R 


LAC 

LPUND 

/0 ■ NO ACTIVITY. 

939 

00914 

R 

741200 

A 


SNA 



936 

00319 

R 

620512 

R 


jMP* 

LPIOCK 

/NO I/O UNDERWAY, 

937 

00916 

R 

600466 

R 


jMP 

LPCALX 

/HANG ON CAL til NOT BUSY. 

938 





/ 




939 





/ SETUP 

' ano output to printer. 

940 





/ 




941 

80517 

R 

000000 

A 

LPSET 

0 



942 

00920 

R 

200937 

R 


L*c 

LPTCB 

/SEND TCB POINTER TO PDP-11 

943 

00521 

R 

160542 

R 


nZM* 

LPEV 

/CLEAR The event variable 

944 

00922 

R 

706001 

A 


SIOA 


/make SURE ITS able TO GET IT 

949 

00923 

R 

600522 

R 


JMP 

.-1 

/NOTE THAT THIS IS PROTECTED SINCE 

946 








/ the LIOR WILL BE ISSUED DIRECTLY 

947 








/ AFTER the SIOA (FREE INSTRUCTION! 

948 

00524 

R 

706006 

A 


lior 



949 

00925 

R 

040933 

R 


OAC LPUND 

/SET 1/0 BUSY FLAG, 

990 

00526 

R 

620917 

R 


JMP* lpset 


991 






'.title 

INITIALIZATION CODE AND TEMPORARIES 

992 





/ 




993 

00927 

R 

000000 

A 

LPCALP 

0 


/POINTER TO CAL AOOR 

994 

00930 

R 

000000 

A 

LPARSP 

0 


/pointer arguments of cal 

999 

00931 

R 

777706 

A 

pagsiz 

.FORMS 


/ASSEMBLED LINES PER PAGE 

996 

00932 

R 

777706 

A 

pagcnt 

.FORMS 


/COUNT THE LINES HEBE 

997 

00933 

R 

777772 

A 

LP'JNO 

.0 


/0*FREEj*«BUSY.-*ERROR 

998 





/ 



/COUNTS UP TO INITAL 0 BELOW 

999 





/ 




960 






.IFUNO 

NOFF 


961 

08934 

R 

440532 

R 

FPSW 

T82 

PAGCNT 

/ACTION FOR FORMS CONTROL, NEMORY 

962 

00539 

R 

440532 

R 

PFFF 

ISZ 

PAGCNT 

/FFSW loaded into HERE 

963 






'.ENOC 



964 






.IFOEF 

NOFF 


969 





FFSW 

NOP 


/ACTION FOR FORMS, MEMORY 

966 





ffff 

nOP 


/FFSW loaded into here 

967 






'.ENOC 



968 

00936 

R 

200629 

R 

INIT 

LAC 

(NOP 

/WRITE OVER JUMP TO HERE 

969 

00937 

R 

040003 

R 

LPTCO 

DAC 

NEW 

/PREVENT RE-ENTRY 

970 

00940 

R 

220699 

R 

LPBUF 

lac* 

C.SC0M*4 /GT printer LINE WIDTH 

971 

00941 

R 

742020 

A 

LPBUFD 

RTR 



972 

00542 

R 

740020 

A 

lPEV 

RAR 


/MOVE TO '6' POSITION 

973 

00943 

R 

500690 

R 

tempi 

and 

(5 

/STRIP garbage, literal 6 

974 

00544 

R 

741200 

A 

bufstz 

SNA 



979 

00549 

R 

340096 

R 

LINLIM 

TAO 

(6 

/TREAT 0 (UNDEFINED! AS 132 CDLUMN1771 

976 

00946 

R 

340613 

R 

maxc 

TAD 

LBFTP 

/POINTER TO CONSTANTS 

977 

00947 

R 

040613 

R 

FIRST 

DAC 

lbftp 


978 

00590 

R 

220613 

R 

tchar 

lac* 

lbftp 

/LINE width 

979 

00551 

R 

040545 

R 

COP 

OAC 

LINLIM 


988 

00552 

R 

440613 

R 

SLANKC 

ISZ 

lbftp 


981 

00553 

R 

220613 

R 

TABC 

lac* 

lbftp 

/BUFFER SIZE 

982 

00554 

R 

040544 

R 

Mix 

DAC 

3UFSIZ 


983 





/ 




984 





/ NOW 

SET UP 

POINTERS 

TO BUFFER AND TCB LOC'S 

989 





/ 




986 

00555 

R 

220643 

R 

lPac 

lac* 

(.5COMW100 /POINTER TO TABLE OF POINTERS 

987 

00556 

R 

740030 

A 

lPout 

lAC 


/OUR POINTER IN TABLE +1 

988 

00557 

R 

040543 

R 

X12 

OAC 

TEMPI 


989 

00960 

R 

220543 

R 

PUTP 

lac* 

TEMPI 

/POINTER TO TCB 

990 

00561 

R 

040937 

R 


DAC 

LPTCB 


991 

00562 

R 

040543 

R 


DAC 

TEMPI 

/POINTER TO FILL LOCATIONS 

992 

00563 

R 

723002 

A 


AAC 

2 

/MAKE pointer TO EVENT VARIABLE 

993 

00564 

R 

040542 

R 


DAC 

LPEV 


994 

00569 

R 

723002 

A 


AAC 

2 

/make pointer to TCB POINTER 

999 

00566 

R 

040553 

R 


DAC 

TABC 

/TO buffer AOOR 

996 

00567 

R 

723009 

A 


A*C 

5 

/MAKE POINTER TO FIRST DATA WORD 

997 

00970 

R 

040541 

R 


DAC 

lpbufo 


998 





/ 




999 





/ MAKE TCB 



600 





/ 




001 

00571 

R 

200657 

R 


l*c 

(APISLT*400*APILVL /BUILD THE API RETURN 

602 

00572 

R 

060543 

R 


DAC* 

TEMPI. 

/STORE In TCB 
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083 

80573 

R 

440543 

R 



TSZ 

084 

80574 

R 

200000 

R 



lac 

085 

8857S 

R 

000543 

a 



DAC* 

080 

08570 

R 

440543 

R 


mKTCR 

ISZ 

087 

00577 

R 

100543 

R 



nZM* 

088 

80088 

R 

440533 

R 



TSZ 

089 

08081 

R 

000570 

R 



JMP 

018 

88082 

R 

200543 

R 



L*C 

Oil 

80003 

R 

000553 

R 



DAC* 

012 

80084 

R 

040540 

R 



DAC 

013 

00085 

R 

100443 

R 



JMS 

014 

80080 

R 

000050 

A 



C*L 

015 

00087 

R 

000010 

A 



to 

010 

00018 

R 

700141 

A 



lssf 

017 

00011 

R 

000020 

R 



lpint 

018 

00012 

R 

000003 

R 



jMP 

019 





/ 


028 







;0EC 

021 

00013 

R 

000012 

R 


lbftp 

-1 

022 

00014 

R 

777000 

A 



.00 

023 

00015 

R 

000044 

A 



36 

024 

00010 

R 

777010 

A 



.120 

025 

00017 

R 

000004 

A 



52 

020 

00020 

R 

777574 

A 



.132 

027 

80021 

R 

000070 

A 



50 

028 



000000 

A 



'.END 


80022 

R 

017777 

A 

*L 




80023 

R 

000011 

R 

*L 




00024 

R 

000030 

R 

*L 




80025 

R 

740000 

A 

•L 




80020 

R 

000000 

A 

•L 




88027 

R 

700842 

A 

*L 




88030 

R 

177777 

A 

*L 




00031 

R 

177001 

A 

• L 




80032 

R 

000080 

A 

*L 




80033 

R 

008137 

A 

*L 




80034 

R 

004000 

A 

*L 




08035 

R 

001008 

A 

*L 




88030 

R 

741000 

A 

*L 




88037 

R 

008408 

A 

•L 




08048 

R 

088177 

A 

*L 




00041 

R 

000135 

A 

*L 




80042 

R 

808012 

A 

*L 




80043 

R 

008288 

A 

•L 




08044 

R 

000011 

A 





88045 

R 

080015 

A 





08040 

R 

008028 

A 

*L 




80047 

R 

008014 

A 

•L 




00050 

R 

000021 

A 

•L 




80051 

R 

000377 

A 

*U 




80052 

R 

000414 

A 

•L 




88053 

R 

788080 

A 

•L 




00054 

R 

077777 

A 

*L 




00055 

R 

000104 

A 

*L 




00050 

R 

080000 

A 

*L 




00057 

R 

027002 

A 

•L 




00000 

R 

000004 

A 

*L 




SIZE»0SI681 NO EBBOO lines 


TEHBl /INCRMT. POINTER TO TC8 

(DEVCOO /PIRE* CODE FOR lP 'DRIVER 

TEMPI /STORE In TCB 

TEMPI /ZERO thru FIRST SUFFER UOC 

TEMPI 

LPUNO 

MKTCB /DONE YET ? - IF NOT THEN LOOP 

TEMPI /This POINTS TO SUFFER 

T*BC /TO LOCATION IN TCB TMaT NEEDS 

LBBUF /and a POINTER FOR US 

RESETL /RESET LINE AND TAB C0UNTR8 

APISLT /ISSUE SETUP CAL TO ESTABLISH INTERRUPTS 


new / DONE 


/pointer to SI2E table 


Figure 4-1 
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APILVL The API level at which PIREX should interrupt the PDP-15; 

this is used in TCBs and in the definition of CAPI. APILVL 
should indicate API level 0, 1, 2 , or 3. 


APISLT 

DEVICE 

SKIP 


SIOA 
LI OR 
CAPI 

DEVCOD 


The API slot to which PIREX should issue interrupts; used in 
TCBs and in the CONNECT/DISCONNECT software directives. 

In this case LSSF, one of the four possible UC15 skips. This 
skip is determined by which API level is chosen. 

SKIP = APILVL*20 + 706101 

The skip is used in the standard setup interrupts CAL (Fig- 
ure 4-1, lines 614-618) 

Skip if PDP-11 can accept a TCBP mnemonic; (706001) . 

Issue TCBP mnemonic; (706006) . 

Clear interrupt flag mnemonic; set to APILVL * 20 + 706104, 
used in interrupt service routine. 

The device code as defined in PIREX: used in TCBs 

NOTE; The conditional use of the spooled bit (PDP-11 bit 7) 

(Figure 4-1, lines 71-76) . 


4. 6. 1.1 Initialization - The CAL entry of a DOS-15 handler must have 
a once only section of code that: 

1. Sets up a pointer to one of the reserved TCB areas in the 
DOS-15 monitor. This is done by locating a pointer to the 
TCB area in the table pointed to by .SCOM +100 (Figure 4-1, 
lines 586, 590) 

2 . Computes pointers to the various locations within this TCB 
area, such as the event variable (Figure 4-1, lines 591-597) . 

3. Constructs the constant fields within the TCB such as the 
API RETURN and device code (Figure 4-1, lines 601-609) . 

4. Sets up a pointer to the data area in the TCB, which will be 
used as a buffer (Figure 4-1, lines 610-612) . 


4. 6. 1.2 Request Transmission - When issuing requests to a task from a 
PDP-15 program, the requesting program (e.g., a PDP-15 I/O handler) 
issues the following sequence of instructions. 


DZM EV 
LAC (TCB 
SIOA 
JMP .-1 


/CLEAR EV IN TCB 

/ADDRESS OF TCB IN AC 

/MAKE SURE PDP-11 CAN ACCEPT REQUEST 

/WAIT FOR IT IF NOT 


(1) Level 0 may be used, but is not recommended because it could hang 
the PDP-15 system if the interrupt occured at the wrong time. 
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LIOR /ISSUE REQUEST TO THE PDP-11. THIS CAUSES A LEVEL 

/7 INTERRUPT TO THE PDP-11 and CONTROL TRANSFERRED 
/TO THE LEVEL 7 HANDLER IN PIREX. 

The instruction sequence which issues requests to tasks from the PDP-15 
should have an identical format as shown above. These five instruc- 
tions are ordered in a way which; 

1. Clears the event variable (EV) before issuing the request. 

2. Allows an interruptible sequence while waiting for the PDP-11. 

3. Allows a non-interruptible sequence once the SIOA instruction 
skips and the LIOR is issued. 

This occurs because the PDP-15 always allows a non-interruptible 
instruction following an lOT (in this case the SIOA) . The SIOA and 
JMP .-1 sequence is interruptible immediately following the execution 
of JMP .-1. 

The LPSET routine is used by the line printer handler to perform the 
request transmission and thus send data to the line printer (or line 
printer spooler) task (see Figure 4-1, lines 541-550) . 


4. 6. 1.3 Interrupt Section - Result Reception - After receipt of a 
request to PIREX, the PDP-11 will use the contents of the TCB to 
schedule the referenced task. 

Meanwhile, the requesting program can either: 

1. Give up control and wait for an interrupt from the PDP-11 as 
in the DOS-15 line printer handler case or 

2. Test the EV until it goes non-zero, i.e., 

LAC EV 

SNA 

JMP .-2 

to determine completion of the request. The EV is automati- 
cally set to a non- zero value by the referenced task when the 
request has been completed. 1 

Interrupts generated by the PDP-11 for the PDP-15 are serviced by the 
PDP-15 in a fashion identical to regular PDP-15 interrupts. As in a 
non-API environment, a SAPI N (N = 0, 1, 2, or 3 depending on what API 
level would have been used if the PDP-15 had API) instruction tests 
for the flag associated with the request. In an API environment, the 
appropriate API trap address must be set up before the interrupt 
occurs. When program control is transferred to the interrupt service 
routine, a CAPI N instruction must be issued to clear the hardware 
flag associated with the request. 


(1) When interrupt returns are used, the EV is set to non-zero just 
prior to the issuing of the interrupt. 
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After clearing this flag, the event variable should be tested to detect 
124-128^ condition (negative event variable). See Figure 4-1, lines 

If an error has occurred, the event variable should be tested for a 
possible PIREX out-of-node condition (PIREX ran out of space to store 
tne request) . If the error was an out-of-node error CR (EV = 177001) 
request should be attempted (See Figure 4-1, lines 144- 

-L49 ) • 


If the error was not an out-of-node error, an error message should be 
sent to the user. The error code should be composed of the event vari- 
able and a handler mnemonic such as LPU (Figure 4-1, lines 136-139 
160 ) ' 


4. 6. 1.4 
plished 
tions : 


• READ and .miTE Requests - Actual input and output is accom- 
by using typical DOS-15 handler code with the following excep- 


1. The TCB is used as the data buffer^ 

2. The actual I/O is done by calls to the TCB transmission 
routine. In the example this is a call to LPSET (Figure 4-1, 


4. 6.1. 5 .CLOSE Function - If PIREX provides spooling services for the 
device, there is a need to inform the device's spooler module that the 
current job has completed so that the spooler is forced to process anv 

buffers. The writer raust insure th!? Kt^ ^ 
the DOS-15 handler and the PIREX spooler module agree upon a conven- 
tion to indicate this end-of-file. In the example, a form feed car- 
nage return (6414) acts as an end-of-file (Figure 4-1, lines 497-502). 


4.6.2 PDP-11 Requesting Task 


Tasks such as MACll may execute under control of the PIREX executive 
in a background mode. Considerations such as TCB structure and event 
variable checking are similar to those of the DOS-15 handler. 


When the requesting program is a PDP-11 task, it must issue the initi- 

^ instruction sequence shown 

for the PDP-15. (See Section 4.6.2). If the task being requested has 
a higher priority than the current one issuing the request, it will 
execute immediately; otherwise, control will return to the first in- 
struction following the IREQ macro. IREQ is defined as follows: 


.MACRO IREQ TCBP 


MOV TCBP,R5 
MOV #100000, R4 


(1) Depending on Driver task design the TCB need not be used 
buffer for NPR devices. 


as a data 
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lOT 


.BYTE 2,0 
.ENDM 

The #100000 in R4 is used by PIREX to identify a PDP-11 request. 
A TCBP is a TCB pointer. 


4.6.3 UNICHANNEL Device Handlers for RSX-PLUS III 

The following description of how to write a UNICHANNEL device handler 
for RSX PLUS III does not discuss those topics pertaining to a 
RSX I/O handlers, see the chapter 

the RSX-PLUS TIT Operating Systeni R eference Manual (DEC-15 IROMA a u; 


4. 6. 3.1 Definition of Constants - Several constants are d^i 
a UNICHANNEL handler's source file before any executable c 
Figure 4-2, lines 66-79). These constants include: 


APISLT The API slot to which PIREX issues interrupts; this is 
used in TCBs and the CONNECT/DISCONNECT software 
directives. 


APILVL The API level at which PIREX interrupts the PDP-15; 

this is used in the TCB and in definition of CAPI. 
APILVL should indicate API level 1, 2, or 3. 

DEVICE UNICHANNEL device skip equated to APILVL*20+706101. 
SKIP 

SIOA Mnemonic for "skip of PDP-11 can accept a TCBP"; 
706001. 


LIOR Mnemonic for "Issue TCBP"; 706006. 

CAPI Clear interrupt flag mnemonic; set this to APILVL 

*20+706104. It is used in the interrupt service 
routine . 

DEVCOD The device code as defined in PIREX; this is used in 
TCBs . 


4. 6. 3. 2 Initialization - The handler initialization is 

immediately following these definitxons (see Figure 4 - 2 , lines 262 320). 
ol^^ing hanger initialization, the PIRp device 

be cleared and the event variable checked to see if the driver is 
functSg (see Figure 4-2, lines 287-304). Since it is not obvious 
L RSX whether or not the driver is operational, a message should be 
printed before the handler exits if the driver is not running under 

PIREX. 
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CO 


CR15/UC15 CARO READER EDIT X020 


1 

2 

3 

4 

5 

6 

7 
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9 

le 

11 

12 

13 

14 

15 
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19 

20 
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28 
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30 
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32 

33 
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39 

40 

41 
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47 

48 

49 
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53 
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56 

57 

58 

59 

60 
61 
62 
S3 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 
96 

96 

97 

98 


CO... 


m0fl055 4 

4 

706121 4 
706001 4 

706006 4 
706124 4 


000005 A 


.TITLE CO.... CR15/UC15 CARO READER EDIT «020 


FIRST PRINTING, FEBRUARY 1974 

THE InFORhATTON in this OOCuHENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMfnT by DIGITAL EQUIPMENT CORPORATION. 
digital equipment corporation ASSUMES NO RESPON- 
SIBILITY FOR ANY ERRORS THAT HAY APPEAR IN THIS 
DOCUMENT. 

THE software DESCRIBED IN THIS DOCUMENT IS FUR- 
NISHED TO Tmf PURCHASER UNDER A LICENSE FOR USE ON 
A SINGLE COMPUTER SYSTEM AND CAN BE COPIED CWITH 
INCLUSION OF OTGITAL'S COPYRIGHT NOTICE! ONLY FOR 
USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO- 
Vioeo IN WRITING BY DIGITAL. 

digital equipment corporation ASSUMES NO RESPONSIBILITY 
FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP- 
MENT that IS NOT SUPPLIED BY DIGITAL. 


/ COPYRIGHT tC1 1974, BY DIGITAL EQUIPMENT CORPORATION 



•EJECT 




/ 

/EDIT 

4020 

2/2/74 

SCR cleanup 

/EDIT 

W019 

SC» 


CHlb ERROR MANDLlNf 

/EDIT 

4018 

SCR 


FIX COON handling I 

/EDIT 

4017 

SCR 


cleanup, IBOTMI DE' 

/EDIT 

4016 

SCR 


MORE UC15 CODE 

/EDIT 

4015 

SCR 

start TO PUT IN UC15 1 

/EDIT 

4013 

1-18 

-72 


/EDIT 

414 

6-26 

-73 


/COPY8 

IGHT 1973, 

, digital equipment CDRP., I 

/C.w. 

KEMP 

A. 

DESIMONE. G. M, 1 


MAYNARO, MASS. 

COLE 

7CR15 CARU REAOER CONTROL HANDLER TASK. THIS CONTROL WILL 
/SUPPORT sorban and oocumatidn headers, 

/ CH16 COOF IS obtained WITH NO ASSEMBLY PPARAMETERS 
/ 

/ TO obtain UC15 CODE DEFINE UC15»0. 

/ AC'OITION*L UC15 parameters: , 

/ DEFINE noSPl«0 to disable SPOOLIHG FOR CARD READER. FOR I^SI^NCE 
/ IF SPOOLER PACKAGF DOESN'T HAVE CARD READER ASSEMBLED IM FOR SPACE REASONS, 
/ AN EQUATE Fop APILVL IS NECESSARY TO SET UP 
/ lOT'S FOR CORRECT PRIORITY LEVEL TO CLEAR PIREX REQUEST, 

/ PHESEnTLV LEVEL 1 IS THE CARO HEADER ASSIGNMENT. 


IN ORDER for THE UC15 HANDLER TO FUNCTION PROPERLY, THE 
PDPll MUST BE able TO ACCESS OUR INTERNAL BUFFER 
ANO TCB'S. THIS MEANS THAT THEIR ADDRESS MUST BE LESS THAN 
28K TO THE PDPll. THUS, IF THE POP-11 LOCAL MEMORY IS 8K, 
THIS handler must RESIDE BELOW 20K IN POPlb CORE! I THIS 
IS EQUIVALENT TO 50R00 OCTAL. SIMILARLY , IF THE LOCAL 
PDP-11 memory is 12K, THE HANDLER MUST RESIDE BELOW 
40000 OCTAL. 

.IFOEF UCI5 


APISLT»55 

APILVL*! 

CHS I* APILVL *20*706101 
SIOAB706001 
LIOH»70600fi 
TAPTIAPTI VL*20+706104 


/ 

.IFUNO NOSPL 

DEVC00»5 

.ENOC 

.IFOEF NOSPL 
DEVCOC*205 

.ENDC 

.ENOC 

/ 

/EDIT 14 ADDS ASSEMBLY PARAMETER ERRLUN TO SPECIFY LOGICAL UNIT 
/ FOR ALL ERROR MESSAGES, THE IS SET TO 3 IF USED INTERACTIVELY 

/ MOST OF THE time or TO 100 WHEN USED WITH PHASE 

/ III batch, LUN 100 IS defined to BE the BATCH OPERATOR DEVICE. 

/ 

.IFuNO ERRLUN 
ERRLUN>100 

.ENOC 

/THIS IS AN TOPS ASCII ONLY HANDLER TASK. 

/IT CAN BE assembled to READ 029 OR 026 IBM KEYPUNCHED CAROS, 

/DEFINE OEC026 TO READ 026 PUNCHED CARDS. 

/OEC026 UnOEFInEO TO READ 029 PUNCHED CARDS. 

/ 

/ 

/ 

/ THE following QUEUE I/O DIRECTIVES ARE IMPLEMENTED 
/ 

/ CP8 3600 handler information CHINF) 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler 
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9S 



/ 


EVA 

1B0 



/ 


LUN 

1171 



/ 



lfi2 



/ FOR HINF the 

FOLLOWING INFORMATION IS RETURNED IN TmE EV 

i«a 



/ 



1B4 



/ 

BIT 0 

UNUSED 

105 



/ 

BIT 1 

* 1 input DEVICE 

10ff 



/ 

BIT 2 

* 0 NOT Output device 

107 



/ 

BIT 3 

« e not file-orienteo 

100 



/ 

BITS 4- 

11 UNIT NUMBER 'ZERO' 

109 



/ 

BITS 12 

-17 DEVICE CODE ■ 7 CARD READER 

110 



/ 



111 



/ 



112 



/ 

CPB 

2400 ATTACH CARO READER 

iia 



/ 


EVA 

114 



/ 


LUN 

115 



/ 



116 



/ 

CP6 

2500 detach card reader 

117 



/ 


EVA 

lie 



/ 


LUN 

119 



/ 



120 



/ 

CPB 

2600 READ CARD 

121 



/ (1) 


EVA 

122 



/ (23 

LUN 


123 



/ (33 


mode 

124 



/ (43 


BUFF 

126 



/ (53 


SIZE 

126 



/ 



127 



/IF A request rANNOT BE QUEUED, THE FOLLOrIHG EVENT VARIABLE 

128 



/VALUES 

ARE RETURNED: 

129 



/ 



130 



/ 

-101 

. indicated LUN odes not EXITS. 

131 



/ 

-102 -- 

. INDICATED LUN IS NOT ASSIGNED TO PHYSICAL DEVICE. 

132 



/ 

-103 -- 

i handler task IS NOT CORE RESIDENT. 

133 



/ 

-777 — 

, NODE FOR REQUEST QUEUE NOT AVAILABLE. 

134 



/ 



135 



/ 



136 



/IF THE 

Queued 

I/O REQUEST cannot BE SUCCESSFULLT DEQUEUED, 

137 



/THE following 

EVENT VARIABLE VALUES ARE RETURNED: 

138 



/ 



139 



/ 

-7 — 

illegal data mode. 

140 



/ 

-6 - - 

unihplemented function. 

141 



/ 

-24 — 

LUN REASSIGNED while ATTACH/PETACH REQUEST IN QUEUE. 

142 



/ 

-30 -- 

OUT OF PARTITION TRANSFER (NORMAL MODE), 

143 



/ 

-203 — 

CAL NOT TASK ISSUED. 

144 



/ 



145 



/ 



146 




.EJECT 


147 



/ 



148 



/ ***• 

* CONSTANTS ***** 

149 



/ 



150 

«00012 

4 

X12012 


/AUTO-INOEXREG. 12 

iSt 

800013 

A 

X13013 


/AUTO-INOEXREG. 13 

152 

000101 

A 

Rl»10l 


/RE-ENTRANT REG, 1 

153 

000102 

A 

R20102 


/RE-ENTRANT REG. 2 

154 

000103 

A 

R3«103 


/re-entrant REG, 3 

155 

000104 

A 

R40184 


/re-entrant REG. 4 

156 

000107 

A 

NAOO»107 


/NODE ADDITION routine ENTRY POINT 

157 

000123 

A 

SNAH0123 


/NAME SCAN ROUTINE ENTRY POINT 

158 

000240 

A 

POOL0240 


/UISTHEAO for POOL OF EMPTY NODES 

ISO 

000252 

A 

P0VL»252 


/LISTHEAO FOR PHYSICAL DEVICE LIST 

160 

000325 

A 

ALAO«325 


/ATTACH LUN « DEVICE ENTRY POINT 

l6l 

000332 

A 

0LA08332 


/DETACH LUN 8 DEVICE ENTRY POINT 

162 

0003S7 

A 

OORO0337 


/DE-QUEUE REQUEST ENTRY POINT 

163 

000342 

A 

VAJX0342 


/VERIFY AND ADJUST I/O PARAMS. 

1"4 

000345 

A 

IOCD0345 


/DECREMENT TRANSFERS PENDING COUNT. 

165 

000381 

A 

DHTQ0361 


/OE-QUEUE I/O REQUEST (FOR ABORTING). 

166 

00001 0 

A 

D,TC«10 


/POSITION OF TRIGER EVENT VARIABLE IN POVL NODE 

167 



/ 



16B 




• IFUNO 

UC15 

169 



/ 



170 



CWC«22 


/wC OCH ADDRESS, 

I7l 



CCA023 


>C* ncH AnnpEss 

172 



/ 



173 



/PSUEDO- 

INSTR, 

FOR WF.SW SUBR. 

174 



/ 



175 



WFOFFbSNA 

/WAITFOR CR15 NOT READY, 

176 



MFON0SZA 


/WAITFOR CR15 HEADY, 

177 



/ 



178 



/ 



179 



/CONDITIONS fob 

LOAD READER CONDITION IDT tCRLC), 

180 



/ 



181 



CC1020 


/CLEAR STATUS, DISABLE INTERRUPT AND DATA CHANNEL. 

182 



CC2»27 


/clear STATUS, START READ, ENABLE INTERRUPT AND DATA CHANNEL, 

183 



CC3026 


/CLEAR STATUS, ENABLE INTERRUPT , ENABLE DATA CHANNEL, 

184 



CC4004 


/enable INTERNS. DISABLES DCH 

185 



/ 



186 




lOT INSTRUCTIONS ***** 

187 



/ 



188 



CRPC»706724 

/clear STATUS EXCEPT CARD DONE. (ALSO DISABLES INTERR 

189 



CRLC»706704 

/LOAD READER CONDITIONS, 

190 



CRRS»706732 

/READ STATUS INTO AC. 

191 



/ 



192 




.ENOC 


193 



/ 



194 

708522 

A 

.INH»705522 

/INHIBIT interrupts. 

195 

708521 

A 

.tNb«70552t 

/enable interrupts. 

196 



f 




197 


•tJECT 




Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cont.) 
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198 

19 & 

2ni{ 

2t>l 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 


/ — — CRl5 ST*TllS and AC BIT ASS ICNMEkJTS . 
/ 


/STATUS 9EGISTPN BIT ASSIGNMENTS: 


/ 

/ 

/ 

BIT 

TRANSLATION 


/ 

17 

column ready 


/ 

16 

END OF CARD 


/ 

15 

DATA channel overflow 


/ 

14 

DATA channel enabled 


/ 

13 

READY TO READ 


/ 

12 

ON LINE 


/ 

11 

END OF file 


/ 

10 

busy 


/ 

09 

TROUBLE (» lOR OF BITS 4-8) 


/ 

08 

data missed 


/ 

07 

HOOPER EMPTY/STACKER FULL 


/ 

06 

PICK ERROR 


/ 

05 

MOTION ERROR 


/ 

04 

PHOTO ERROR 


/ 

03-00 

UNUSED 


/AC 

/ 

BIT assignments for LOAD CONDITION FUNCTION 

CCRLC) 

/ 

BIT 

FUNCTION 


/ 

17 

START READ 


/ 

16 

DATA channel enable 


/ 

15 

Interrupt enable 


/ 

14 

OFFSET CARO 


/ 

/ 

13 

clear status register 


/ 

/ 

status 

register bits connected to flag 

AND interrupt REQUEST: 

/ 

17 

data READYCONLY if DATA CHANNEL 

NOT ENABLED) 

/ 

16 

CARO DONE 

/ 

15 

DATA channel overflow 


/ 

/ 

09 

ERROR CONDITION 



/MAC9C OEFINITIONSI 
/ 

/CP macro for CARO COLUMN TO ASCII TRANSLATION TABLE 026/029 CONDITIONALIZATION 
/ 

•IFOEF OEC026 

.OEFiN CP«C26.C29 

C2667777T1 

,£NDM 

.ENOC 

.IFUNO DEC026 
.OEFIn CP,C26,C29 

C2967777*! 

.ENDM 

.ENOC 

/ 

/ 

.EJECT 

/ 

/ 

/ ***** handler initialization ***** CONCE ONLY CODE) 

/ 

/START /STORAGE FOR AC IN INTERR. SERVICE. 

/IBUF /TOP OF internal BUFFER. 

/ 

/ 


262 


0 

70"646 

R 

START 

LAC 

CPOVL) 

263 

("0101011 

e 

06064/ 

R 

IBUF 

OAC* 

(Rl) 

264 


B 

90"650 

R 


LAC 

(HNAM) 

265 


0 

06*651 

R 


OAC* 

(R2) 

266 


D 

12*652 

R 


JMS* 

(SNAM) 

267 








268 


D 

*00653 

R 


CAL 

C10) 

269 

("90101 

0 

040567 

R 


OAC 

POVNA 

270 

("0("ei7 

Q 

723010 

A 


AAC 

O.TG 

271 


0 

040570 

R 


DAC 

POVTA 

272 


P 

*0*577 

R 


CAL 

CCPB 

273 


P 

90*561 

R 


LAC 

EV 

274 


P 

7411*0 

A 


SPA 


275 

("001 \ 

P 

"0*653 

R 


CAL 

C10) 

276 . 

("01011^ 

D 

90P654 

R 


LAC 

(TG) 

277 


P 

*6*57B 

R 


OAC* 

POVTA 

278 


P 

500655 

R 


AND 

C7P000) 

279 


P 

74*031 

A 


TCA 


260 


0 

*4*563 

R 


DAC 

XADJ 

281 





/ 



282 






.IFUNO 

UC15 

283 






LAC 

cccn 

284 






CRLC 


285 






.ENOC 


286 






.ifdef 

UC15 

287 


O 

1 0*695 

R 


JMS 

clear 

288 


0 

90*61 3 

R 


LAC 

evuk 

289 


P 

749010 

A 


RTL 


290 

("9019^ 

P 

74*1*0 

A 


SMA 


291 


0 

600057 

R 


JMP 

WFTGR 

292 

31W("?7 

P 

00*034 

R 


CAL 

MSTNIT 

293 


P 

*0*032 

R 


CAL 

WFMS 

294 


O 

*0*653 

R 


CAL 

C10 

295 





/ 



296 


P 

*0*090 

A 

WFHS 

20 


297 


P 

*0*561 

R 


EV 



/SCAN PDVL FOR THIS DEVICE'S NODE 


/R, R2, R6, XR, t AC ARE ALTERED 
/NODE FOUND? 

/NO -- EXIT 

/YES — PDVL NODE ADDRESS IN AC. 
/SAVE NODE ADDRESS AND 
/TRIGGER EVENT VARIABLE ADDRESS 
/CONNECT interrupt LINE 
/CONNECT OK? 

/NO -- EXIT 

/YES — SET TEV ADDRESS 
/determine 'XR-AOJI 


/CLEAR STATUS, DISABLE INTER, AND DCH. 
/LOAD FUNCTION, 


/CLEAR OUT PIREX DEVICE, NAIT FOR COMPLETE 

/FIND OUT IF OK 

/PDPll SIGN BIT TO OURS 

/SKIP IF trouble 

/NOT, GO mAIT for work 

/PRINT PIREX HAS NO CO MESSAGE 

/WAIT FOR MESSAGE COMPLETION 

/EXIT 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cont.) 
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348 
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345 
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348 

349 

390 

391 
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399 
360 

36t 
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367 
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0 

999791 ^ 


M 6 IMT 

2700 





p 

00*58 1 



Ev 





p 

999 ] 9H 



FRRL'IN 





p 

000002 



2 





p 

000041 



INIT 8 S 


.ASCII "**• NO CD IN PIREX"«15> 



p 

004002 


IMTMS 

0040021 

000000 1 



p 

999J)l9lfl 







»» pi 0141 

p 

281 24b 







^n'H44 

p 

22*234 







00«4K 

p 

47801 14 








p 

3421*0 







99947 

e 

448344 







flaw's* 

0 

* 8*222 








p 

812133 








D 

*08400 



.ENOC 




999fS9 

0 

80*087 

R 


JmP 

rftgr 

/mAIT FOR trigger 


99954 

p 

"3*4*0 

A 

MNA0 

.SIXBT 

•CO****' 

/handler task name 


'*0''K8 

D 

99999 / 

A 











. IFUNO 

UC15 








.block 

121+START-. 







.ENOC 









.ifoef 

UC15 



9995« 

0 

777775 

A 


.block 

530START 








.ENDC 









END OF 

initialization code ***** 






/****** 

** TMt above code 

IS overlayeo by the internal Buffer 






/**•**« 



.**************.*************************** 





/ UC15 

INTERBUPT-CAL interaction rill be DIFFERENT 






/ KEEP INITIAL PART SEPARATE 







. IFuND 

UC15 







HFTbR 

CAL 

WFTCPB 

/rAIT FDR TEV to BE SET 







THE TASK MAS BEEN TRIGGERED — PICK A REQUEST FROM QUEUE 






OZM 

TG 

/CLEAR TRIGGER 






PO 

LAC 

POVNA 

/DEQUE A REQUEST 







OAC* 

(Rt) 








JmS* 

COORO) 

/Rl, R2, R4, R5, R6, XR t AC 

/RAs A request found? 

ARE ALTERED 






JMP 

RFTGR 

/NO — RAIT FOR TRIGGER 







.ENOC 









.ifoef 

UC15 







/ UC15 

CODE 








/ THE general idea IS 

THAT ALL WAITS ABE DONE THRU 






/ THE 

trigger. 

RE FIGURE OUT HERE RHO SET THE TRIGGER. THIS 






/ ALLOWS US TO 

GET OUT 

OF HUNG DEVICE, SINCE RE RAIT HERE, 






/ AND 

CAN SEE 

AN ABORT 

COMING THRU. 


99957 


00*575 

R 

RFTGR 

CAL 

RFTCPB 

/WAIT FOR EVENT VARIABLE TG 


99999 


200562 

R 

PO 

LAC 

TG 

/FIND OUT WHO IS calling 


• 0061 


1 4*562 

R 


OZM 

TG 

/RESET 


00062 


742010 

A 


RTL 


/ABORT BIT TO SIGN BIT 


00063 


751130 

A 


spaiClaiiac 

/SKIP IF NOT ABORT, 1 IN AC. 


99994 


80*071 

k 


JMP 

POl 

/GO 00 ABORT IN REGULAR RAY. THE HANGING 





/ 



/READ IS REMEMBERED IN RRNl 


99995 


84*564 

R 


SAD 

COON 

/HAS A CARO BEEN DECLARED DONE BY INTERRUPT 

99965 


800177 

R 


JmP 

GOTCRO 

/YEAH, GO translate it 


00067 

p 

84*407 

R 


SAO 

POST 

/ARE HE WAITING FOR INTERRUPT 


9999 9 

D 

999957 

R 


JMP 

RFTGR 

/YFS. ANO it HASN'T HAPPENFO YFT. STNCE 





/ 



/COON not set. wait on THIS CAL RED, 

TO BE 





/ 



/DONE AFTER THE INTERRUPT HAPPENS. IF 

ABORT 





/ 



/COMES IN THE MEANTIME, HE IS PUT AT 

HEAD 





/ 



/OF DEQUE OF hAITXNG REO.'S SO RE DO 

HIM, 

• 0»71 

p 

20*56/ 

R 

PQl 

LAC 

POVNA 

/try to DEQUE AFTER OPERATION BEFORE 

WAITING 

00*72 

0 

*8*647 

R 


OAC* 

(R1 

/IN CASE WAITING FOR INTERRUPT HAS HELD OFF 

99975 

p 

1 2*686 

R 


JMS* 

(OORO 

/A REQUEST. 


99974 

9 

80*087 

R 


JMP 

RFTGR 

/DIDN'T FIND ONE, GO WAIT 







.ENOC 




99975 

D 

"4*584 

R 


OAC 

PN 

/YES — SAVE address OF REQUEST NODE 

99975 

0 

34*583 

R 


tad 

XAOJ 

/SETUP XR TO ACCESS NODE 


00077 

9 

721 000 

A 


PAX 





/ 

/ ***** T/0 HEQUEST NODE E0HM4T ***** 

/ 

/ (0) EOH84P0 UINK 

/ (1) 84CKwtRD LINK 

/ (2) STL PTP. 

/ C33 P4PT. BLK PTR. (8 IF EXH TSK) , 

/ (4) t*sk priority 

/ C5) I/O FCN CODE IN BITS 9-17 AND LUN IN BITS 0-8 

/ f6J -- EVENT VARIABLE ADDRESS 

/ (7) CT6 PTR. 

/ ti0) Extra 


Figure 4-2 
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(in txTh* 


o A 

B k 

P SAfpBV* (< 
D «pff 1 ?(• K 
P 'iJPfiSl 
P *P<P19.? 

p 1 < 

p spin 1 •< 

p K 


/FETCH I/D FCN CODF 

/ATTACH request? 

/TES — ATTACH TO TASK 
/NO — DETACH REQUEST? 
/TES — DETACH from TASK 
/NO — HEAD REOUST? 

/YES -- head CARO 
/NO — handler INFO.? 


‘VQII 1 1 

e 

Kpiffl 1 jb 

f? 


JHP 

MINF 

/yes -- RETURN INFO IN EV 

19 

0 

KAPSM? 

R 


SAD 

(7771 

/NO -- EXIT (DEASSIGNED) REQUEST? 


9 

K^PAKA 

R 


JMP 

OAEX 

/YES -- DEATTACH & EXIT 

9^114 

0 

KAP6KA 

k 


SaO 

(0171 

/ABORT REQUEST? 

OtCM 1 ^ 

9 

«pP5P2 

k 


JmP 

CDABRT 

/YES. 

i« 

9 

.777772 

A 

EvMb 

LAW 

-6 

/NO — UNIMPLEMENTEO FUNCTION -- SET 

ntWI 1 7 

9 

«0*A?A 

R 


JMP 

sev 

/EVENT variable TO -6 





/ attach TO A 

TASK 



9 

PPP5F7 

R 

ATTACH 

LAC 

POVNA 

/ATTACH LUN & DEVICE 

•"-Ml?! 

9 

P6P6A7 

R 


OAC* 

(fil) 


«B »1 99 

9 

9PIP5K4 

R 


LAC 

PN 


flflll 97 

9 

PKP651 

R 


OAC* 

(R2D 


9.4 

0 

1 jpftKS 

R 


JMS« 

(ALAO) 

/R3, R4, R5, R 6 , XI 0 , XU, XR It AC ARE ALTERED 








/WAS LUN attached? 

9flll 97 

0 

K0IP49A 

R 


JMP 

SEV 

/NO -- SET REQUESTOR'S EV TO -24 

9« 

9 

KOPAPS 

R 


JMP 

REOCMP 

/YES REQUEST COMPLETED 





/ detach from 

TASK 


«91 9’ 

0 

9^p5F7 

R 

nfcTACH 

LAC 

POVNA 

/DETACH LUN t DEVICE 

991 3*^ 

9 

P6P6A7 

K 


OAC* 

(Rl) 


99131 

0 

9t)"5SA 

R 


LAC 

RN 


991 79 

0 

P6P651 

R 


OAC* 

(H 21 


991 

9 

1 JPFK 6 

R 


JMS* 

(DLAO) 

/R3, HA, R5, R 6 , X10, Xll, XR S AC ARE ALTERED 








/WAS LUN ATTACHED 

99 1 34 

0 

K^pAPA 

R 


JMP 

SEV 

/NO -- SET REQUESTOR'S EV TO -24 

991 39 

9 

KPPA93 

R 


JMP 

REQCMP 

/YES — REQUEST COMPLETED 





/ 

• EJECT 







/ 

/ RETURN handler INFORMATION 


9913« 

Q 

909887 

R 

HINF 

LAC 

(2000071 


99137 

Q 

80PA3A 

R 


JMP 

SEV 






/HEAD 

CARO 



• 9149 

9 

777776 

A 

/ 

READ 

LAW 

-2 

/CHK, FOR lOPS ASCII DAT* MODE. 

99141 

9 

P5»9P7 

A 


TAD 

7,X 


99149 

R 

7AP2PTt 

A 


SZA 


/lOPS ASCII? 

90143 

R 

80P48IS 

R 


JMP 

EVM7 

/NO, RETURN -5 EV. 

90144 

D 

91P0P2 

A 


LAC 

2 >X 

/SAVE STL NODE PTR, FOR TASK lOENTIF, 

99143 

9 

PAPSS 6 

R 


OAC 

STLA 

/SAVE VALID STL PTR. 

991 49 

9 

71P01 0 

A 


LAC 

10>X 

/YES, VAL/ADJ. HEADER ADDRESS 

99147 

9 

P69670 

R 


□ AC* 

(R3) 

/HEADER ADDRESS. 

9915" 

9 

91P01 1 

A 


LAC 

n,x 

/WORD COUNT 

99151 

0 

Ofi»671 

K 


OAC* 

(R4) 

• 

90159 

P 

7AP031 

A 


TCA 


/SETUP COUNTER SINCE 

99153 

9 

7?SO02 

A 


AAC 

♦ 2 

/OFFSET FOR CR APPENDAGE. 

90154 

9 

"APS 86 

R 


OAC 

COWOCT 

/VAJX ALTERS the XR. 

901 fm 

0 

PAP 57 A 

R 


OAC 

TCMC 

/SAVE IN CASE RETRY. 

90159 

0 

9P0 J8A 

W 


LAC 

RN 

/RED. NODE ADDRESS, 

90157 

0 

PAP57 1 

R 


OAC 

RHN 

/SAVE READ REO. NODE ADDR, FOR ABORT, 

991 99 

9 

p 6 " 8 K 1 

R 


OAC* 

(R2) 


90151 

0 

1 99672 

H 


JMS* 

(VAJXl 

/VAL/ADJ. (ALTERS XR,*C,R3,R5) 

90159 

9 

69PA62 

R 


JMP 

EVM30 

/RETS. HERE IF ERROR (I/O PARAM. OUT 








/OF partition. 

09153 

0 

9?p670 

R 


LAC* 

(R3I 

/ADJUSTED HEADER ADDRESS -1 TO X12 TEMP. 

90154 

P 

79P777 

A 


AAC 

-t 


90155 

0 

PAP&72 

R 


OAC 

TX12 


901 55 

9 

72S092 

A 


AAC 

♦ 2 

/TEXT ADDRESS-1 TO X13 TEmP. 

00157 

9 

PAP573 

R 


OAC 

TX13 

/ 

901 70 

9 

1 AP585 

R 


OZM 

corval 

/INIT. valid, bits. 






.IFUNO 

UC15 







LAC 

COON 

/HAS CARD done FLAG COME UP SINCE 






SNA 


/last CARO READ? 






CAL 

WFCRCO 

/NO. waitfor card done. 






OZM 

COON 

/YES. clear card done Flag. 





retry 

LAC 

(ieuF-1) 

/SET intern, buff AOOH-1 TO OCH CA. 






OAC* 

(CCA) 







OZM* 

(CWC) /PREVENTS DOUBLE INTERRUPTS ON ERRORSilil 






LAC 

TCWC 

/RESTORE REQ, WC. 






DAC 

COWOCT 







DZ« 

EYl 

/reinit ev. retry from error. 






CRRS 


/read status IN OHOfcR Tt; CHECK FOR READER READ' 






AnU 

(60) 

/AND ON-LINE. 






SAD 

(60) 

/status bits 12, 13 SET? 






SKP 


/YES, ON-LINE and ready FOR READ. 






JMP 

ERRl 

/NO, NOT ready. type MSGl AND WAIT FOR READY. 






LAC 

(CC21 

/CONDITION CODF 2 — READ CARD. 






CHLC 


/LOAD CONDITIONS. 






CAL 

WFCRC 8 

/wait for INTERRUPT, 


/UPON RESUMPTION FOLLOmING NAITFOR, EXAMINE EV AND TAKE THE FOLLOWING 
/action: 
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4»g 

/ 




49f 

/IF EV 

BIT 9 « 

0 (TROUBLE BIT), NO ERRORS. TRANSLATE CARD PUNC' E5 

491 

/TO ASCII 4nD P4SS TO USER AS 

5/7 packed ASCII. 

492 

/IF BIT 0 • 1 fTROUBLE BIT), 

ERROR BITS 08 TO 04 ARE CHECKED IN 

493 

/DESCENDING NumFRICAl ORDER. 

THE following ERROR MESSAGES FOR THE 

404 

/GIVEN 

ERROR CONDITIONS ARE OUTPUT! 

49« 

/ 




4 

/DATA 

HISSED OR 

PHOTO ERROR - 

'♦** CO DATA MISSEO/PHOTO ERROR' 

40/ 

/PICK 

OR MOTION 

ERROR - '*** 

CO PICK ERROR' 

40c 

/hopper EmPTV or stacker full 

- IGNORED. Caught on subseq. 

400 

/READ 

AS A reader NOT READY CONDITION, 


/IN All cases where a message 

IS TYPED, THIS handler TASK MARKS TIME 

5?1 

/until 

THE ERROR IS REMEDIED. 

AT THIS POINT, THE CARD IS REREAD. 

S(»2 

/ 




5513 


LAC 

EVl 

/EV SET AT INTEHR. LEVEL TO CONTENTS OF 

Sfl4 


DAC 

TST 

/STATUS. SAVE TEMP, 

596 


SMHA 


/SWAP halves for TROUBLE BIT CHECK, 

506 


SMAIRAR 


/IF NEC. .TROUBLE. 

907 


JMP 

TRANS 

/NO trouble. go TRANSLATE. 

508 


SZLIRAP 


/DATA MISSEOT 

509 


JMP 

ERR4 

/YES. 

510 


SZLIRar 


/NO. hopper EHPTY/STACK. fullt 

511 


JMP 

TRANS 

/YES. IGNORE. WHEN NEXT CRD. READ CAUGHT AS NOT READY 

512 


SZLIRAP 


/PICK ERROR? 

513 


JMP 

EHR3 

/YES. 

514 


SZLIRAP 


/MOTION ERROR? 

515 


JMP 

ERR3 

/YES. 

516 


JMP 

ERR4 

/NO. MUST BE PHOTO ERROR. 

517 

/ 




SIB 

/ 




519 

EKR4 

ISZ 

ERRPT 


520 

ERR3 

IS2 

ERRPT 


521 

ERR2 

ISZ 

ERRPT 


522 

ERRl 

LAC* 

ERRPT 

/ERRMSG. BUFFER ADOR. TO AC. 

523 


JMS 

TTYOUT 

/TYPE MESSAAE. 

524 


JMS 

WF.SM 

/WAITFOR READER READY, 

525 



UPON 


526 


LAC 

(ERRPT+1) 

/REINIT. ERRPT. 

527 


DAC 

ERRPT 


528 


JMP 

RETRY 

/READ another CARO, 

529 

/ 




530 


.EJECT 



531 

trans 

LAC 

TX12 

/SET AUTO INDEX REG. 

532 


DAC* 

(X12) 


533 


LAC 

TX13 


534 


DAC* 

CX13) 


539 

/ 




936 

/ NOR 

BRING BACK RN FROM RRM, 

, IN CASE RN DESTROYED IN MEANTIME 

937 

/ 




938 


LAC 

RRN 


930 


DAC 

RN 


940 


LAC 

(IBUF) 

/TOP OF internal buffer 

941 


DAC 

ICA 

/PTR TO BUFFER 

542 


LAN 

• 20 


543 


DAC 

COCOLC 

/CARD COL COUNT 

544 

CDRH5 

LAN 

-5 


949 


DAC 

C0R5CT 


946 

C0RL2 

LAC* 

ICA 

/GET 

947 


SAD 

coralt 

/ALT MODE (12,1,0 PUNCH)? 

948 


JMP 

cocalt 

/YES — terminate buffer 

940 


SAD 

(7777 

/NO — IS IT AN EOF? 

590 


JMP 

EOF 

/TES, 

99i 


LAC 

C0TA9L 

/NO — TRANSLATE TO ASCII 

552 


DAC 

COTPTR 

/GET TOP OF table AND SET PTR 

593 


LAC 

CDTLNl 

/SET TABLE LENGTH 

554 

CDHL4 

DAC 

COTLEN 

/CURRENT LENGTH/2 

559 


ADO 

COTPTR 

/CURRENT table TOP ♦ LEnGTH/2 

996 


DAC 

COCPTfi 


997 


LAC* 

CDCPTR 

/GET CURRENT ITEM 

558 


AND 

(7777 


559 


szajcll 



560 


add 

CO7700 

/AOO IN REST OF 2'S COMPLEMENT WORD 

5«1 


TAD* 

ICA 

/CURRENT column 

562 


SNAJCLA 


/MATCH FOUND? 

363 


Jrir 

COCr NO 

/ 1 c3 

564 


SAD 

COTLEN 

/CURRENT table length *0? 

565 




/THIS means an unknown CARD PUNCH 

566 


JMP 

ILLCP 

/GO OUTPUT 'TLLEGAL CARD PUNCH', 

567 


SNL 


/L«0 JUMP UP, Lei JUMP DOWN TABLE 

568 


JMP 

COOPTR 


569 


LAC 

COCPTR 

/SET TABLE TOP TO LOWER HALF 

570 


DAC 

COTPTR 


571 

COOPTR 

LAC 

COTLEN 

/UPDATE table length 

572 


CLL JRAR 



573 


JMP 

C0ML4 


574 

CDGALT 

LAW 

4000 

/alt mode 

575 


JMP 

COCPUT 


576 

/ 




577 

EOF 

LAC 

(1005 


578 


JMP 

REQCMA 

/SET MOR WDI TO EOF 

579 




/REQUEST complete 

580 

/ 




581 

/COME 

HERE ON match found 


582 

/ 




583 

COCFNO 

LAC* 

COCPTR 

/GET current entry 

584 


CMAiCLL 


/GEN, leftmost BIT 

585 


TAD 

CDTABL*! 

/AOO 4000000 

586 


CMA 
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CDT*BL+1 


/RESTORE SIXTH BIT 


587 

58b 

589 

59b 

591 

592 

593 

594 

595 
598 

597 

598 

599 
608 
681 
682 

683 

684 

685 

686 

687 

688 
689 
618 
611 
612 

613 

614 

615 

616 

617 

618 
619 
628 
621 
622 

623 

624 

625 

626 

627 

628 
629 
638 

631 

632 

633 

634 

635 

636 

637 

638 


XOR 
RAR 

COCPUT OAC CORW03 /PUT IN TOP OF 3 NORO SHIFT BLOCK 

CDCL*K LAW -7 

DAC COR7CT 

COCPLl LAC C0Rwr)3 /COEWD3, CDRW02 S CDRWDl SHIFT AS A UNIT USING 

/THE LINK TO PASS BITS FROM WORD TO WORD 

RAL 

OaC CDRWD3 

LAC C0RWO2 

RAL 

OAC CORHD2 

LAC CORwOl 

RAL 

OAC CORWOl 

ISZ CDR7CT 

JMP COCPLl 

ISZ ICA /POINT TO NEXT CARD COL 

ISZ CDR5CT /HAVE WE PROCESSED 5 WORDS? 

JMP C0ML2 /NO GET ANOTHER ONE 

LAC COWDCT /YES — UPDATE WORD COUNT AND 

TaC (2 /CHECK TO SEE IF WE HAVE OVERFLOWED THE 

DAC COWDCT /USER'S BuFFFR 

SMA 

JMP C0VER2 /YES — WE HAVE OVERFLOWED 

LAC CDRW02 /NO — insert 5/7 WORDS IN USER'S BUFFER 

CLLIRAl 

OAC C0RWO2 

LAC CORWOl 

RAL 

OAC* X13 /STORE FIRST WORD 

LAC C0RW02 

OAC* X13 /STORE SECOND WORD 

ISZ COCOLC 

JMP C0RM5 

/ 

.ENOC 

/ 

.IFOEF UC15 

/ 

/ IN THE CASE OF THE UNICHANNEL, WE RECIEVE A 42tl0J WORD 
/ BUFFER. THE FIRST WORD IS A BYTE COUNT tNOW ALWAYS 88(181). 

/ NOTE THAT an EOF CARD HAS A BYTE COUNT OF 1 U 
/ SPOOLER DOES CHECKSUM CALCULATION, NOT US, 

/ THE SECOND IS A CHECKSUM SO ENTIRE BUFFER ADDS TO 8 
/ lUWWWMOOULn 2*16 that 1S###1J1. THEN ARE 48(18) WORDS 
/ OF 'COMPRESSED COLUMN', (SEE CR-ll DRIVER MANUAL), EACH 
/ WORD HAS Two EXTRANEOUS BITS AT LEFT, THE ISECONO CHARI 
/ OF THE PAIR, AND FINALLY THE FIRST CHAR OF PAIR AT RIGHTMOST 
/ OF WORD, THF pop-11 has ALREADY CHECKED FOR VALID PUNCH 
/ COMBINATIONS (84 VALID CARD ASCII, PLUS 12-1-8 FOR ALTMODE) , 

/ 


639 88171 p 758838 A RETRY CLAllAC /SET VARIABLE SAYBING WE'RE WAITING FOR 

648 88179 p 848487 R OAC POST /INTERRUPT 

641 88173 p 14*554 R OZM COON /AND SAY WE HAVEN'T GOTTEN IT YET 

642 *8174 9 98*614 R LAC TCBP /AOOR OF TABLE TELLING PDP-11 TO READ CARD 

643 80175 p 108616 H JMS COIU /ROUTINE TO SEND REQUEST TO PDP-11 

644 80178 p 888057 R JMP WFTCR /WAIT FOR COMPLETION INTERRUPT 

645 / 

646 / COME BACK HFRE WHEN CARO IS READ 


647 





/ 



648 


P 

908571 

R 

GOTCRO 

LAC 

RRN 

649 


0 

84*584 

ft 


OAC 

RN 

658 


P 

1 4*487 

ft 


OZM 

POST 

651 


P 

1 4*554 

ft 


OZM 

COON 

652 


o 

78*685 

K 


LAC 

Evil 

653 


R 

749810 

A 


RTL 


654 


P 

745120 

A 


spajcllirar 

655 


P 

888636 

R 


JMP 

COUCEC 

656 

*^PI9PI7 

Q 

92*673 

ft 


LAC* 

(IBUF*2 

657 


R 

84*674 

ft 


SAD 

(104611 

658 





/ 



659 

1 

P 

808171 

R 


JMP 

RETRY 

660 

9^919 

P 

58*675 

ft 


and 

(340 

601 

m99j^ 

R 

348676 

ft 


TAD 

(445 

662 

90914 

P 

*4*677 

R 


SAD 

(1005 

663 


P 

8**420 

ft 


JMP 

REQCMA 

664 


P 

90*572 

ft 

TRANS 

LAC 

TX12 

665 

90917 

P 

*6*7*0 

ft 


DAC* 

(X12 

666 

90999 

P 

90*573 

ft 


LAC 

TX13 

667 

99991 

P 

*6*7*1 

ft 


OAC* 

CX13 

668 





/ 



669 

90999 

P 

9**673 

ft 


LAC 

(IBUF+2 

670 

'^999'% 

P 

744810 

A 


clliRal 


671 

90904 

P 

*4*485 

ft 


OAC 

COIPTR 

672 

90909 

P 

777660 

A 


LAW 

-120 

673 

90900 

P 

*4*560 

H 


DAC 

COCOLC 

674 

99907 

P 

90*331 

ft 

PKINT 

LAC 

paki 

675 

999:^9 

P 

*4*327 

ft 


OAC 

PAKSW 

676 

999^1 

P 

98*566 

ft 


LAC 

COWDCT 

677 

9093^ 

P 

744090 

A 


CLLlRAR 


678 

909:^^ 

P 

*4*566 

ft 


OAC 

CDWOCT 

679 

909:^4 

P 

90*4*5 

ft 

CDRML2 

LAC 

COIPTR 

680 

009:^5 

P 

44*4*5 

K 


ISZ 

COIPTR 

681 





/ 



6«2 

909:^0 

0 

744090 

A 


clljrar 


683 

999^17 

0 

*4*406 

ft 


OAC 

CDTl 

684 

909^0 

P 

92*486 

R 


LAC* 

COT! 

685 

90941 

P 

741410 

A 


SZLJRal 


686 

00949 

P 

743830 

A 


swhaiskp 

687 

0094 "% 

D 

748890 

A 


RAR 



/RESTORE RN NODE 

/clear INTERRUPT FLAGS 
/BEST TO CLEAR POST FIRSTl 
/EVENT variable FROM PDP-11 
/POP-11 SIGN BIT TO OUR SIGN BIT 
/SKIP IF OK, START CLEARING HIGH BITS 
/GO CHECK WHICH KIND OF PIREX ERROR 
/GET FIRST character PAIR (2 WORD HOR) 

/spooler USES an alt-alt CARO AS AN end 
/OF DECK card, we should IGNORE ITU 
/IT WAS ONE, JUST READ THE NEXT CARD 
/12,11,8 PUNCHES IN FIRST COLM.«EOF 
/IF IT IS ONE, make a 1005 
/WELL, IF SO GO LACE 1885 AS HEADER 
/EOF card, just SET HEADER, 

/SETUP X12,X13 FOR USER BUFFER 
/manipulations, X12 header POINTER 
/X13 DATA pointer 


/DATA STARTS AT BUFF*2 

/TOP 17 BITS ADDRESS, LAST IS RIGHT-LEFT FLOP 
/TO GET INCOMING CHAR'S 
/•0 CHAR'S 

/NOTE WE USE COUNTERS OIFERENT ALSO 
/INIT 5/7 PACKER TO EXPECT 
/IST char of a bunch of five 
/WE USE AS COUNT OF PAIRS, NOT WORDS 
/SO DIVIDE BY TWO 

/WATCH ITl TOP 17 BITS ADDR, LOW BIT LEFT 
/RIGHT FLIP-FLOP. ANDiJ POINTER POINTS TO 
/NEXT CHAR, NOT LAST ONE RETREIVED. 

/flip-flop to link, AOOR AC 
/MOLD POINTER IN TEMPORARY 
/GET character pair 
/THESE THREE GET CORRECT CHAR 
/TO LOW ORDER 8 BITS OF WORD 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cont.) 
4-23 



666 


D 

S0"7'»2 

k 


and 

f377 

/STRIP OTHER CHARACTER 

689 





/ 



/AT THIS POINT have CLOMNS 12,11,0,9,8,1-7 

690 





/ 



/WHERE 1-7 COOFO IN THREE BITS 

691 


9 

940406 



OAC 

COTl 

/hold 

692 


9 

S40404 

R 


SAD 

CDAlT 

/alt mode SPECIAL CASE, NO REMAP 

693 


» 

800260 

R 


JMP 

cdgalt 

/REJOIN AS special CASE 

694 

999901 

• 

809703 

R 


and 

(20 

/IF NINE PUNCH, PECIAL CASE, REMAP TO 8,1 1 

695 

9M991 

9 

740200 

A 


SIA 


/COMBO FOR OUR TRANSLATE, SKIP IF NOT NINE 

696 

99999 

9 

777771 

A 


LAW 

-7 

/ADDED TO 'S' RIVES '8' AND '1' 

697 

«0»95:^ 

9 

840406 

R 


TAD 

CDTl 

/REMAPPED, 

698 

9999^ 

9 

940406 

N 


DaC 

CDTl 

/SAVE, NOW TO MOVE BOTTOM FOUR BITS LEFT 01 

699 

99999 

9 

809084 

k 


and 

(17 

/POSITION (9 POSITION NOW VACATEDl) 

700 

999H9 

9 

Y4'’406 

k 


TAD 

CDTl 

/THIS ODES TT, leaving LOW ORDER BIT ZERO 

701 





/ 



/NOW COLUMNS 12, 11,0,8, 1-7, ZERO BIT! 

702 


9 

748000 

A 


SKPlCUL 


/MIDF YOUR HEAD, CLL FOR COMING RTR. SKIP 

703 





/ 



/OVER AUT-MODE RE-ENTRY 

704 

99969. 

9 

P0"704 

k 

cdgalt 

LAC 

(240 

/INDEX TO alt mode 

705 

9996 1 

9 

7470P0 

A 


RTR 


/right-left to link, INOEx to AC 

706 

99969 

0 

S4"795 

R 


TAD 

(COTABL 

/TABLE AODR 

707 

99969 

P 

949496 

k 


OAC 

COTl 


708 

99964 

D 

909406 

R 


LAC* 

COTl 

/GET PAIR FROM TRANSLATE TABLE 

709 

99969 

9 

749400 

A 


SNL 


/MERE 0 IS LEFT, IN NORMAL SENSE 

710 

99966 

D 

749030 

A 


SWHA 



711 

99967 

O 

1 09323 

R 


JMS 

PAK57 

/5/7/ PACKER (IT STRIPS XTRA BITS) 

712 

99979 

9 

449580 

k 


ISZ 

CDCOLC 

/007 

713 

99971 

9 

809234 

k 


JmP 

C0RHL2 

/NO 

714 

99979 

9 

80941 0 

k 


jhp 

COCLOS 

/YES 


715 

716 
717- 

718 

719 


749 

748 

747 

748 

749 

79b 

791 

792 

793 
79* 
799 

796 

797 

758 

759 

760 
7?I 

762 

763 

764 

765 

766 

767 

768 

769 
77fi 

771 

772 

773 

774 

775 

776 

777 

778 

779 
760 

781 

782 

783 

784 

785 

786 

787 


TR4NSL*Tt table 4 GROUPS OF 16 CHARIS, TWO PER WORD. 8 WORD 
SPACE between last TWO GROUPS, IN WHICH WE PUT OTHER STUFF 
CONOITIONA1.I2EO FOR 826>029 OF COURSE. LEFT HAND CHAR IS FIRST, 


720 




.IFUNO 

DEC026 

721 

90973 

9 

040061 A CUTABL 040061 

/blank, 1-PUNCH 

722 

90274 

9 

"62063 A 

062083 

/2-PUNCM,3-PUnCH 

723 

0027S 

9 

064065 A 

064065 

/4,5 

724 

00278 

9 

968067 A 

066067 

/6,7 

725 

00277 

P 

*70071 A 

070071 

/0,9(OROERED AS 8-1} 

726 

90300 

9 

"72043 A 

072043 

/«-2,8-3 

727 

00301 

9 

100047 A 

100047 

/«-4.e-5 

726 

00302 

9 

07S042 A 

07S042 

/•-6.8-7 

729 

00303 

9 

969057 A 

060057 

/0.0-1 

730 

00304 

9 

123124 A 

123124 

/0-2,0-3 

731 

00S0S 

P 

128126 A 

125126 

/0-4,0-5 

732 

00308 

0 

127130 A 

127130 

/0-6,0-7 

733 

• 0307 

9 

131132 * 

131132 

/B-8,e-9C0R0ERED AS 0-8-1) 

734 

00310 

9 

130084 A 

135054 

/0-8-2. 0-8-3 

735 

0031 1 

ft 

940137 A 

045137 

/0-8-4, 0-6-5 

736 

0031 2 

ft 

978077 A 

076077 

/0-8-a,0-8H7 

737 

00313 

9 

050112 * 

055112 

/11,11-1 

736 

00314 

ft 

115114 A 

113114 

/U-2,11-3 

739 

00319 

ft 

110116 A 

115116 

/ll-4,ll-5 

740 

00318 

ft 

117120 A 

117120 

/ll-6,ll-7 

741 

• 0317 

0 

121122 A 

121122 

/11-8.11-9{0R0ERED AS 11-8-1) 

742 

90320 

ft 

041044 A 

041044 

/1 1-8-2,11-8-3 

743 

•0321 

ft 

0520S1 A 

052051 

/ll-e-4, 11-6-5 

744 

00320 

ft 

973134 A 

073134 

/11-8-6, 11-8-7 


.ENOC 
.IFOEF DECB26 
COTaBL 040061 
062063 
064065 
066067 
070071 
137075 
100156 
047134 
060057 
123124 
125126 
127130 
131132 
073054 
060042 
043045 
055112 
113114 
115116 
117120 
121122 
072044 
052133 
076046 
.ENDC 
7 

/ NOW THE 8 LOC. BREAK IN THE TABLE 
7 

7 THE 577 packer, A LITTLE TRICKY PAKSW KEEPS A PC WHICH 
7 iREHEHBERSt WHICH CHAROCTER OF 5 WE ARE AT. TO INIT PACKER, 
7 SEE TWO lines OF CODE AT PAKINT. NORMAL 'FLUSH' OUT WOULD 
7 BE TO send NUL CHAR'S UNTIL PAKSWwPAKI, IN THIS 

handler, Past history says we truncate always at a word 
PAIR boundary, even for SHORT BUFFERS. I AM AFRAID TO 
CHANGF this, even THOUGH I DON'T LIKE IT. 


00S2Y P «0S000 A 


7 
7 
7 
7 

PAK57 

7 

7 


P0Y24 

00sps 


■^?''7w6 

744000 


0 


and 

CLL 


(177 


/CALL with char in AC, COESTROVEO) 
/PUSHES CHAR'S THRU X13, EARLY ENO CHECK 
/IN COWOCT, 

75TIP XTRA 

/FOR ALL ROTATES AND SWAPSl 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cont.) 
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PAKSH 


p «2'»3?7 w 
«5l-<27 B TiOil/iAe A 
PP73P P «2"i393 P 
5IWT31 B R 

n07H9 p A 


PAKI PAKST 

PAKT P 

/ 

/ WEST flK T«A 


PAKSH /TO whatever ACTION THIS CHAR. NEEDS. 

/pointer TO ACTINS FOR CHARACTER 
PAK57 /THAT'S ALL, OUT 

/INIT PAKSH FOR FIRST CHAR. 

/TEHPORARY FOR PARTIAL WORDS 


p translate table 

IFund PEC02S 


797 


e 

046101 

A 

046101 

/12, 12-1 

798 


D 

105103 

A 

1 02103 

/12-5, 12-3 

799 


0 

104105 

A 

104105 

712-4,12-5 

600 


D 

106107 

A 

106107 

/12-6. 12-7 

801 


e 

110111 

A 

1101U 

/12-8, 12-9I0RDERED AS 12-8-11 

802 


o 

<37056 

A 

133056 

/12-8-9, 12-8-3 

803 

1 

P 

"74050 

A 

074050 

712-8-4,12-8-5 

804 

805 


Q- 

055136 

A 

053136 

.ENDC 

712-8-6, 12-8-7 


.IFDEF DEC02S 
PS3101 
102103 
104105 
106107 
110111 
07/056 
051135 
074041 
.ENOC 


816 


e 

1 75000 

A 


175000 


/alt mode, FDR BOTH PUNCH SETS. 

817 





7 




818 





7 NOW 

REST OF 

577 packer 

819 





7 




820 

1^^-%44 

Q 

1 00327 

R 

PAKQ 

JMS 

PAKSW 

75TH CHAR WRAP SACK TO 1ST. JMS TO PAKSW 

821 





7 



/LEAVES ADDR of ACTION FOR IST.J. 

822 


D 

742010 

A 

PAKST 

RTL 


71ST character ACTION, MOVE TO LEFT OF WORD 

823 


p 

742030 

A 


SWHA 



824 


0 

040352 

N 


OAC 

PAKT 

/hold as partially assembled word 

82S 


p 

100327 

ti 


JMS 

PAKSW 

/LEAVE POINTER TO 2ND CHAR 

826 





7 




827 

api:s5i 

Q 

742010 

A 


RTL 


72ND char action 

828 


P 

742010 

A 


RTL 



829 


Q 

240332 

R 


XOR 

PAKT 

/marge with FIRST 

830 


P 

040352 

k 


OAC 

PAKT 

/WAIT FOR PART OF 3RD TO FILL WORD 

831 


P 

1 00327 

R 


JMS 

PAKSW 

/leave POINTER TO THIRD 

832 





7 




833 


Q 

742020 

A 


RTR 


73R0, TWO PARTS, FIRST IS TOP 4 BITS 

834 


P 

740020 

A 


rar 


/RIGHT JUSTIFIED 1ST WORD OF PAIR 

835 


P 

040327 

R 


OAC 

PAKSW 

/VERY-TEMPORARY IN HERE 

836 


0 

500664 

R 


AND 

(17 

/ZAP OTHER BITS 

837 


p 

240332 

R 


XOR 

PAKT 

/complete 1ST WORD OF PAIR 

838 


e 

060013 

A 


OAC* 

X13 

/PLACE IN USER BUFFER 

839 


p 

20*327 

R 


LAC 

PAKSW 

/GET BACK THIRD CHAR (LINK STILL OK U 15 

840 


p 

740020 

A 


RAR 


72ND JOB, LOW THREE BITS OF CHAR TOP OF 

841 


p 

50*707 

R 


and 

(700000 

72ND WORD OF PAIR 

842 


P 

040332 

R 


OAC 

PAKT 

/WHEHJ, HOLD THAT IN PARTIAL WORD 

843 


p 

1 00527 

R 


JMS 

PAKSW 

/LEAVE POINTER FOR FOURTH 

844 





7 




845 


p 

742030 

A 


Swha 


74TH, SNUG UP TO 3 BITS ON TOP 

846 


P 

740020 

A 


RAR 



847 


p 

240332 

R 


XOR 

PAKT 

/TOGETHER 

848 


p 

040332 

R 


DAC 

PAKT 


849 

"91 '^7^ 

p 

1 00327 

R 


JMS 

PAKSW 

/LEAVE POINTER FOR 5TH 

850 





7 




851 


p 

440566 

R 


ISZ 

CDWOCT 

/OVERFLOW SHORT BUFFER? 

852 

"0-S77 

p 

741010 

A 


SKPJRAL 


/NO, RAL LEAVE XTRA BIT OF PAIR ON RIGHT 

853 

1^04001 

p 

600452 

R 


JMP 

CDVER2 

7UH-0H, GO CORRECT 

854 

an40i] 

p 

240332 

R 


XOR 

PAKT 

/complete 2ND WORD OF PAIR 

855 

"«4ff9 

p 

060013 

A 


DAC* 

X13 

/PLACE 

856 


p 

80*344 

H 


JMP 

PAKQ 

/GO PLACE PAKSW FDR FIRST CHAR OF FIVE 

857 





7 




858 

n^4^4 

p 

00*21 1 

A 

CDALT 

211 



859 


p 

*0*000 

A 

CDIPTR 

0 


/pointer to input DATA IN INPUT BUFFER 

880 





7 



/FRMAT. LOW BIT RIGHT-LEFT FLIPFLOP 

861 





7 



/TOP 17 BITS address 

862 

"IX40lff 

p 

*0*000 

A 

CDTl 

0 


/TEMPORARY FOR TRANSLATION 

863 

np!4p»7 

p 

00*000 

A 

POST 

0 


70 WHEN NOT WAITING FOR INTERRUPT, 1 WHEN YES 

864 






.ENOC 



865 





7 THE ,1 

3UFFER MAS SEEN REMAPPED — STORE A ICR' IN THE TRAILER 

866 





7 WORD 

AND SET 

UP The header word 

867 





7 




866 


p 

90*7 1 0 

R 

CDCLOS 

LAC 

(64000 


869 

j 1 

p 

06*01 3 

A 


DAC* 

X13 

/SET 'CR1 IN USER BUFFER 

870 

"W4) 9 

p 

90*560 

R 


LAC 

CDCOLC 

/CDCOLC IS NEGATIVE 

871 

wp4j:^ 

P 

725022 

A 


AAC 

22 


872 

"(*41 4 

p 

744000 

A 


CLL 


/ROTATE INTO PLACE 

873 

"(9415 

p 

84071 1 

A 


ALS 

11 

/SHIFT INTO POSITION 

874 

"(14 1 5 

P 

54056 b 

R 


TAD 

corval 

/ADO IN BUFFER OVERFLOW IF ANY (BITS 

875 

""41 7 

D 

723002 

A 


AAC 

2 


876 

""4?" 

P 

*600 1 2 

A 

REOCMA 

DAC* 

X12 

/SET HEADER WORD ONE 

877 

CT04?1 

P 

777777 

A 

REDCOH 

LAW 

-1 

/SET RRN, SAYING NO MORE READ OUTSTANDING 

878 

""499 

P 

-40571 

R 


DAC 

RRN 


879 

""4?5 

P 

750050 

A 

REOCMP 

CL*i lAC 



880 

""4?4 

P 

1 0*496 

R 

SEV 

JMS 

SEVRN 

/SUB. TO SET EV, RETURN NODE 

8Bl 

""4?5 

D 

800080 

R 


JMP 

PO 

/GO LOOK FOR MORE WORK 


/ routine IS called with vale for EV in AC 

Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cent.) 
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/ THE node *OnB. IS IN RN 
/ 

! EV IS SFTi SIGNIFIC4NT EVENT DECLARED, lOCO ODOE, NODE RETURNED, 
/ 


692 


D 

666660 

A 

SEVHN 

0 



693 


P 

T22666 

A 


PAL 


/SAVE AC value 

694 


D 

266584 

K 


LAC 

RN 

/node addr 

69S 

«P431 

D 

•86651 

R 


OAC* 

(R2 

/STSTEN argunent holder 

H96 


0 

•46583 

R 


TAD 

XAOJ 

/ADJUST FOR PREESENT PAGE 

697 


P 

721 660 

A 


PAX 


/FOR XR addressing 

696 

'•W434 

P 

216666 

A 


LAC 

6, X 

/EVENT VARIABLE ADDRESS 

809 

<^W43^ 

0 

741 260 

A 


SNA 


/SKIP IF really one 

«l»n 


P 

606443 

R 


JMP 

NOSET 

/NOPE, SO DON'T SET 

9("1 

'*01437 

P 

346583 

R 


T*0 

XAOJ 

/modify IT FOR ADDRESSING 

962 

‘*0^449 

P 

721 0»6 

A 


PAX 



963 

'»«441 

D 

73*660 

A 


PLA 


/BRING BACK SETTING VALUE 

964 

'*^449 

P 

*56066 

A 


OAC 

0, X 

/THERE IT GOESl 

966 

9A443 

P 

26671 1 

R 

NOSET 

LAC 

(401000 

/DECLARE A SIGNIFICANT EVENT 

966 


O 

7*6564 

A 


ISA 



967 


P 

•0*764 

R 


LAC 

(POOL 

/GIVE NODE TO POOL 

966 

3^448 

D 

"8*547 

» 


OAC* 

(R1 

/SYSTEM ARGUMENT REG 

969 

301447 

D 

12*712 

R 


JMS* 

(TOCD 

/decrement 10 COUNT 

916 

'*W45" 

D 

1 2*71 3 

R 


JMS* 

(NADD 

/GIVE BACK node 

91 1 

3PI451 

0 

82642b 

R 


JMP* 

SEVRN 

/THAT/S n 

912 





/ 




913 





/ 




914 





/ 




915 





/ ***** 

RuFFtk 

overflow 


91b 





/ 




91 7 

3W489 

0 

777776 

A 

COVER2 

LAW 

-2 

/BACKUP USER BUFFER PTR 

918 

fliOl /»K3 

0 

38*701 

R 


TAD* 

(X131 


919 

3M484 

P 

*6*701 

R 


D*C* 

(X131 


926 

•3488 

P 

26*71 4 

H 


LAC 

(60) 

/SET OVERFLOW BITS FOR USE BY CDCLOS 

921 

33488 

O 

*46586 

H 


DAC 

CORVAL 


922 

'•H487 

O 

*6*410 

R 


JMP 

CJCLOS 


923 





/ 




924 

>*W4fi3 

P 

777771 

A 

EVM7 

LAW 

-7 

/illegal data mode. 

925 

3(^481 

D 

8**424 

R 


JMP 

SEV 


926 

3^489 

e 

7777‘'0 

A 

EVH36 

LAW 

-30 

/I/O PARAM. PUT OF PAWTITION, 

927 

33483 

o 

80"424 

R 


JMP 

SEV 


928 





/ 




929 






. IFUNO 

UC16 


936 





/ 




931 





AtVbS 

LAW 

-6 

/illegal function. 

932 






JMP 

SAEV 

/SET ABORT tv. 

933 





/ 




934 





70N illegal CARO PDNCh, 

WAIT FOR READER NOT READY FOLLOwED BY 

935 





/HgADtR 

READY 

SEQUENCE 

BEFORE READING ANOTHER CARO. 

936 





/ 




937 





ILLCP 

LAC 

(ERRMG2) /TYPE 'Illegal card punch'. 

938 






IMS 

TTYOUI 


939 






JMS 

wF.su 

/WAIT FOR READER NOT READY. 

946 







WFOFF 

/PSUEUn TNSTR, FOR wF.Sw. 

941 






JnS 

MF.SW 

/WAIT FOR READER READY, 

942 







WFON 

/PSUEOO INSTP. FOR wF.Sw. 

943 






JMP 

RETHY 

/READ another CARO, 

944 





/ 




946 





/ 

SU«R. 

TO "Ait For reader not ready or ready for reao 

946 





/ 

PER PSHEDO INSTR. IN calling SEQUENCE. AFTER MARK TIME REDS, 

947 





/ 

THE TRIG. EV. IS CHECKED FOR An AbORT RED. IN THE QUFUE, 

946 





/ 

IE task red. read is to be aborted, the SUBR, DOESN'T 

949 





/ 

return 

normally 

.BUT Eventually jumps to cdabrt. 


CALLiNr. StOUENCF! 


JnS 

.5tii 



PSUtn, INbTk. 

(WFOEF DR wFuN) 

SuHr , 

return ,IF no intervening abort for THIS TASK. 

0 

LAC* 

wF , S4 

/GET PSUEOO InSTR. 

OAC 

PVl 


ISZ 

UE.su 

/BUMP EXIT. 

CR»S 


/READ CARO READER STATUS. 

AnO 

C2P) 

/CHECK for READER READY FOR RE) 

XX 


/SNA DR SZA, (READER READY IF 

JMP* 

RE ,SW 

/EXIT. 

CAL 

HTCP8 

/MARK TIME FDR WAIT. 

CAL 

WFEC0 

/WAIT FOR mark time interval. 

nzM 

EV 


LAC 

TG 

/check FDR ABORT REU, IN QUEUE, 

rtl 



SMA 


/ABORT RED.? 

JMP 

WE .SUA 

/CHECK AGAIN, 

OZM 

TG 

/YES. OFUUeUE ABORT REQ. 

LAC 

PDVNA /PDVL 

NODE ADDR. 

DAC* 

C»U 


JMS* 

(DQRQ) 

/DEOUEUE ABRT. REQ. Rl,R2,R4,Rl 

NOP 


/ALTERED. ASSUME ABRT, REQ. H 

OAC 

RN 

/SAVE ABORT RED. NODE ADOR. 

TAD 

XAOJ 

/SET XR. 

PAX 



LAC 

5,X 

/GET ABRT, REQ. EV. 

OAC 

ARE 


LAC 

5,X 

/check FDR ZERO LUN. 

ANO 

(777066) 

/BITS 0-8 

SZA 



JMP 

AEVH6 

/ERROR. non-zero LUN, 

LAC 

2,X 

/GET STL. <Y0DE PTw. AnO CHECK 

SAD 

STLA 

/READ REQ, STL NODE PTR. SAME? 

JMP 

CDARO 

/YES. ABORT READ RED. AND CLE 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cont.) 
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9«8 

989 

99?. 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1 ??? 
U1I>1 
10?2 
1?«3 
1 

10«5 
1 006 

1007 

1008 
1069 
1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 
1019 
10?0 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 
1 034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 
1 045 
1 046 

1047 

1048 

1049 
1 050 
1 05l 

1052 

1053 

1054 
1056 

1056 

1057 

1 (-.Sfe 

1059 

1060 
1061 
1062 
10P3 

1064 

1065 
10.66 
1 067 
1 068 
1069 
107? 

1071 

1072 

1073 

1074 
1076 

1076 

1077 

1078 

1079 

1080 
1081 
1082 
1083 

1084 

1085 

1086 


LAC 

POVNA /NO. 

clean UP QUEUE OF TASK TO St ABRTEO. 

OAC* 

(Rl) 

/ALSO RETR. ABRT. RED. NODE TO POOL AND 

LAC 

RN 

/UECR. TRANSF, PEND, CNT. ABRT, REO, NODE 

DaC* 

tR2) 

/ADOR, TO R2. 

IMS* 

(OMIQ) 

/empty REQ. QUEUE OF ALL I/O 

LAC 

m 

/REO.'S made by task being ABORTED. 
/R1,R2,R3,R5,R6,X10,X11,X12,XR,AC ALTERED. 
/SET ABRT, REQ. EV TO +1. 

PAL 

LAC 

ARE 

/ABORT REO. EV, 

TAO 

XAOJ 


PAX 

PLA 

OaC 

0, X 


LAC 

(401000) 


ISA 


/DELLARE SIGNIP. EVENT. 

LAC 

RN 

/PETRN. ABRT, RED, NOI>E TO POOL. 

DAC* 

(R2) 

1 AC 

(POOL) 


OAC* 

(HI) 


J hS* 

f lOCO) 

/DECR. TRANSF. PENO. CNT, 

JhS* 

(NAOOl 

/RETRN, node TO POOL. 

JHP 

WP .SWA 

/CHtCK AGAIN. 

CLAI lAC 


/SET CARD DONE FLAG. 

OAC 

COON 


jHP 

C0A8RT 

/PROCEED WITH ABORT. 


60464 

00465 

00466 

00467 

00470 9 12*712 

00471 o 120713 


200704 ft 
060647 H 
200564 R 
060651 R 


/ EXIT 
/ 

D4EX 


.tHOC 

.eject 


request cfrom task 


L*C 

04C* 

L*C 

04C* 

JMS* 

JMS« 

.ifund 

LAC 

CWLC 

CAL 

.ENOC 


CPnou 

CRD 

RN 

(R2) 

tIOCO) 

(NAOm 

UC15 

(ccn 

DCP8 







.IFOEF 

UC16 

«01>179 

0 

1 00625 

k 


JMS 

CLEAR 


p 

4405Z7 

P 


ISZ 

CCPS 

^<^47 4 

0 

000577 

k 


CAL 

CCPB 






.ENOC 


*0147^ 

D 

44057? 

k 


ISZ 

POVTA 


P 

705622 

A 


. INh 


^9477 

O 

1 6067? 

k 


OZM* 

POVTA 


P 

705521 

A 


.ENB 



P 

rtirtir*^ ^,3 

R 

/ 

Cal 

(IP) 





/ 

/ABORT 

request. 



C 

777pP«V3 

A 

CDABRT 

LAW 

17M00 


o 


A 


and 

5,X 


D 

74^999 

A 


SZA 



P 

« 7 .■» 1 1 6 

R 


JmP 

EVM6 


0 


k 


LAC 

POVNA 


P 


k 


OAC* 

(Rl 


P 


k 


LAC 

RN 

1 

O 


k 


n*c* 

(R2 


P 

12*715 

k 

/ 

JMS* 

(DMTO 





/ NOW 

WAS THIS 

ABORT 


P 

200564 

k 


LAC 

RN 

4 

0 

04*563 

k 


TAD 

XAOJ 


D 

721 00? 

A 


PAX 


C 

D 

210002 

A 


LAC 

2,X 

7 

D 

640556 

k 


,SAO 

STLA 


P 

751001 

A 


SkP ICLA, 

ICMA 


P 

60.0423 

P 


JHP 

REQCMP 


P 

240671 

K 


XOR 

RHN 


D 

741201 

A 


SNA ; Cmj 


^*1*^94 

P 

*00423 

k 


JmP 

REQCMP 


P 

*60651 

k 


OAC* 

(R? 


P 

20*704 

R 


LAC 

(POOL 

fllp(^p7 

P 

060647 

R 


OAC* 

(Rl 


D 

12*712 

k 


JMS* 

(lOCO 


P 

1 2*713 

R 


JMS* 

(NAOO 


P 

75*001 

A 


CLA1CM4 



P 

04*571 

R 


OAC 

RRN 






.IFUNO 

UC15 






LAC 

(CCl 






CRLC 







.ENOC 







.IFDEF 

UC15 


P 

1 00625 

R 


JMS 

clear 






.ENOC 



P 

60*423 

R 


JMP 

REQCMP 


..REA") 

/RETURN REQUEST NODE TO POOL 

/decrement TRANSF. pending COUNT 
/CONDITION CODE 1 — CLEAR CONTROL, 

/disconnect 


/clear device , WAIT FOR COMPLETION 

/make CONNECT A DISCONNECT (RURP) 

/disconnect 

/POINT TO assign INHIBIT FLAG 
/INhTtilT INTERRUPTS, 

///ZERO IT 

///enable INTERRUPTS. 

///EXIT 


/MASK TO KEEP half WORD TO CHECK ABORT VALIOITY 

/has TO BE ZERO TO BE OK 

/SO SKIP IF OK 

/ERROR RETURNEO IP NOT 

/MT THE DEQUE FOR THE ABORTED TASK 

/ABORT node 

/THIS ROUTINE DOES ALL WORK 


/2+RN IS STL NOOF ADOR 
/USE AS IDENTIFIER 


/SAME ADOR FOR CAST READ DONE 
/SKIP IF same, SET UP -1 

/NOPE, RE'RE DONE, GO GIVE BACK NODE ETC. 

/NASTY, MAKES 0 IP NO READ NO* I IN PROGRESS 
/SKIP IP READ IN PROGRESS, RECREATE ITS NODE AODRl 
/NOPE, JUST complete 

/GIVE BACK NODE AND lOCO POR SUSPENQFD READ 


/SET READ NOT HERE SWITCH 
/CLEAR DEVICE 

/and clear POR UNICMANNEL 
/DONE 


.eject 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cont.) 
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/ INTERRUPT service ROUTINE 


• 0630 

0 

•0*000 

A 

INT 

0 


•0637 

0 

707762 

A 


OBA 


• 064« 

p 

•40000 

R 


OAC 

START 






.IFUNO 

UCIS 






CRRS 







OAC 

Evl 






and 

(2) 






SNA 







JMP 

INTI 






OAC 

COON ; 






LAC 

(CC3) 






CHLC 






INTI 

CRPC 







LAC 

(CCA) 






CRLC 







.ENOC 






/ 

.ifoef 

UClS 

00641 

p 

706124 

A 


CAPI 


00649 

9 

90*407 

R 


LAC 

POST 

00643 

9 

741200 

A 


SNA 


00644 

9 

60*5?1 

R 


JMP 

INTAC 

00646 

9 

•4*564 

N 


OAC 

COON 

•0646 

0 

• 4!‘562 

R 


OAC 

TG 






.ENOC 


• 0647 

P 

90«71 1 

R 


LAC 

(401000) 

• 066 + 

D 

706504 

A 


ISA 


» 06 Sl 

P 

*••(100 

R 

INTAC 

LAC 

start 

00639 

P 

703344 

A 


obr 


00663 

P 

69*536 

R 


jmp+ 

INT 






.EJECT 






/ 

.IFuNO 

UCIS 


/READ STATUS INTO *C. 

/SAVE FOR TASK level PROCESSING. 
/CARO DONE? BIT 16. 

/NO. OON'T CLEAR CARO DONE, 

/PLACE 2 INTO COON TO SAY DONE 

/YES. clear CARO OONE. LEAVE 
/INTERR. AND OCH ENABLED. 

/CLEAR ALL BUT CARO DONE. 

/ENABLE INTERRS. DISABLE OCH 
/NEEDED SINCE CRPC DISABLES INTERRS. 


/CLEAR FLAG FROM POP-11 
/ARE RE RANTING AN INTERRUPT 
/SKIP IF YES/USE value TO SET 
/NO DO NOTHING 

/AS flag to DISTINGUISH CARO OONE FROM CAL 
/ANO SET TG TO RAKE UP CAL LEVEL 

/DECLARE SIGNIF, EVENT. 

/RESTORE AC. 


/♦DURESS OF error MESSAGE BUFFER. 


TTYOUT P 

OaC TECPB4 /SET CPB Bl 

C*L TE /type ERROf 

CAL RFECB /RAITFOR E\ 

JmP* TTYOUT 

/ERROR message BUFFERS ANO TABLE OF PTRS.! 

/ 

ERRPT ,♦! 

EHRmGI 

ERRHG2 

ERRMG3 

ERRmGA 

ERRMG5 


/SET CPB BUFFER ADDRESS. 
/TYPE ERROR message. 
/RAITFOR EV. 


EHRMGI ERRMG2-ERRMG1*10PB/2*2 
B 

.ASCII CO READER NOT READY'«15> 

EHRMG2 ERHMG5-ERRMG2*1B«B/2+2 
B 

.ASCII '*•* CO illegal PUNCHi«15> 

EHRMG3 ERRmG4-ERRNG3*1BBB/2+2 
B 

.ASCII **** CO PICK ERROR'<lS> 

ERRMGA ERHmG5-ERRMG4*10B»/2+2 
B 

.ASCII '•** CO DATA MISSED/PHOTO tRROR'<15> 

EHRMGS*. 

.EJECT 

/ *.**• CARO COL TO ASCII TRANSLATION TABLE •*♦** 

/EACH table Entry represents valid ascii card punches with 

.•u. cm I nuTUR cnOMfTf 
/ 

/bits B - 5 SIXBTT ASCII CHARACTER. 

/bits 6-17 CARD PUNCHES WITH THE FOLLOWING MAPPING! 

/ 

/BIT 6 • ZONE 12 
/BIT 7 ■ ZONE 11 
/BITS 8-17 . ZONES 0-9. 

/THE assembler builds the TWOS complement of BITS 6-17 VIA THE 
/77770+1 operation, THE TABLE IS ORDERED ACCORDING TO INCREASING 
/magnitude QF card PUNCHESCCONSIOEREO as 12 BIT RIGHT JUSTIFIED 
/INTEGER VALUES). 

/EXAMPLE! ASCII *9' HAS FOLLOWING TABLE REPRESENTATION! 

/ 

/ 7lB0Bl*7777+l 

/rhere BBBi Indicates zone 9 punched and 7i is sixbit ascii >9'. 

/GRAPHIC characters FOR 026 PUNCHES ARE IN PARENTHESES BELOW! 

/ 

COTABL CDTABl+1 

40B000 /Blank 

710001*7777+1 /9 

700002*7777+1 /I 

670004*7777+1 /7 

CP 340006,420006 /” C9) 

660010*7777+1 /6 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cont.) 



1187 

CP 470012,750012 

/» C) 

1186 

65002067777+1 

/5 

1189 

CP 360022,470022 

/, C + ) 

1190 

64004067777+1 

74 

1191 

00004267777+1 

70 

1192 

63010067777+1 

73 

1193 

CP 750102,430102 

7# ( = ) 

1194 

62020067777+1 

72 

1195 

CP 370602,720202 

7: CO] 

1196 

61040067777+1 

71 

1197 

60100067777+1 

70 

1198 

32100167777+1 

7Z 

1199 

31100267777+1 

7Y 

1200 

30100467777+1 

7V 

1201 

CP 451006,771006 

7? (*] 

1202 

27101067777+1 

7W 

1203 

CP 431012,761012 

7> CO] 

1 204 

26102067777+1 

7V 

1205 

CP 421022,371022 

7RIGHT ARRDN 

1206 

25104067777+1 

7U 

1207 

CP 501042,451042 

7X CC] 

1208 

24110067777+1 

7T 

1209 

54110267777+1 

7 ' 

1210 

23120067777+1 

7S 

1211 

CP 731202,351202 

71 Cl) 

1212 

57140067777+1 

77 

1213 

55200067777+1 

7- 

1214 

22200167777+1 

7R 

1215 

21200267777+1 

7Q 

1216 

20200467777+1 

7P 

1217 

CP 462t»06, 342006 

76 tS) 

1218 

17201067777+1 

70 

1219 

CP 762012,732012 

7; (>) 

1220 

16202067777+1 

7N 

1221 

CP 332022,512022 

7] t n 

1222 

15204067777+1 

7M 

1223 

52204267777+1 

7 + 

1224 

1 4210067777+1 

7L 


1225 

1226 
1227 
1226 
12PS 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 
1240. 

1241 

1242 

1243 

1244 

1245 

1246 

1247 
1 248 

1249 

1250 

1251 


cotlni 

CORAL! 


44210267777+1 

13220067777+1 

CP 722202, 412202 

12240067777+1 

CP 534000,464000 

11400167777+1 

10400267777+1 

07400467777+1 

CP 414006,364006 

06401067777+1 

CP 744012,534012 

05402067777+1 

CP 354022,504022 

04404067777+1 

CP 514042,744042 

03410067777+1 

56410267777+1 

02420067777+1 

CP 774202,334202 

01440067777+1 

.-I-COTABL/2 

4402 

• ENOC 

.eject 


71 C:j 
/J 

n ( + ) 

/I 


/* tl3 

/F 

/♦ C<) 
/E 

/r cn 

70 

7< m 

7C 

7. 

7B 

7t C?) 
72 


7 

/ •**•* internal variables 


1252 


0 

HI00001 

A 

COON 

1 

/CARD DONE FLAG. 

1253 


p 

(*00000 

A 

TST 

0 

/TEMP STORAGE FOR STATUS. 

1 254 


0 

000000 

A 

STLA 

0 

/STL NODE. ADDR. 

1255 


p 

"00000 

A 

ARE 

0 

/ABORT REO. EV. 

1256 


p 

000000 

A 

CDCOLC 

0 

/CARD COL COUNT USED IN TRANSLATING CAROS 

1257 


p 

000000 

A 

EV 

S9 

/internal EVENT variable 

1258 


Q 

000000 

A 

TG 

0 

/TRIGGER EVENT VARIABLE 

1259 


P 

000000 

A 

XAOJ 

a 

/XR ADJUST constant TO SUBTRACT PAGE BITS 

1260 


P 

000000 

A 

RN 

0 

/ADDRESS OF THE REQUEST NODE PICKED FROM AUEUE 

1261 


P 

"00000 

A 

corval 

0 

/BUFFER OVERFLOW FLAG WORD 

1262 


D 

000000 

A 

COWOCT 

0 

/WORD COUNT CHECK WORD SET FROM I/O REQUEST 

1263 





7 



1264 






.lEUNO UC15 


1265 





7 



1266 





7 SAVE 

SOME Room for 

UC15, these are NOT NEEDED 

1267 





7 



1268 





ICA 

0 

/INTERNAL Buffer current address pointer 

1269 





C0R7CT 

0 

/SEVEN COUNTER USED BY THE 5/7 ASCII PACKING ROUTINE 

1270 





CDR5CT 

0 

/COUNTER FOR 577 ASCII PACKING 

1271 





COTPTR 

0 

/pointer to translation table 

1272 





cotlen 

0 

/translation table length 

1273 





CD7700 

770000 

/USED In CARD translation 

1274 





CDCPTR 

0 

/pointer to current intem in translation table 

1275 





CDRbUS 

0 

7/ 

1276 





CDRWD2 

0 

77 THREE WORD SHIFT REG. FOR 5/7 ASCII PACKING 

1277 





CDRhDl 

0 

// 

127b 





EVI 

0 

/CARD READER EV. 

1279 





7 



1280 






,ENOC 


1281 





7 



1282 


e 

00"000 

A 

POVNA 


/PHYSICAL DEVICE NODE ADDRESS 

1283 


p 

000000 

A 

PDV7A 

0 

/ADDRESS OF ADDRESS OF TEV IN PHY DEV NODE 

1284 

1 

e 

777777 

A 

RKN 

777777 

/READ BEING PRDC. FLAG. -1 IF NOT BEING 


1285 

1286 


7PR0CESSED, 

7PR0CESSED. 


READ RED, NODE ADDRESS IF BEING 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cent.) 
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1287 

*0579 

e 


A 

TX12 

0 

/TEMP 

. FOR X12 STOfi, 

1286 

*0573 

0 

*0*000 

A 

TX13 

0 

/TEMP 

. FOR XIJ STOR. 

1289 

*0574 

Q 

***000 

A 

TCWt 

0 

/TEMP 

. FOR REQ. WC. 

1290 





/ 




1291 






.EJECT 



1292 





/ 




1293 





/ ***** 

CAL Parameter 

Blocks 


1294 





/ 



1295 





/ 




1296 


p 

*0*090 

A 

WFTCPB 

20 


/WAIT FOB TRIGGER 

1297 


0 

*0*562 

K 


TG 


1298 





/ 




1299 

00577 

p 

*0001 1 

A 

CCPB 

11 


/CONNECT CPB 

1300 

*0606 

0 

*0*56 1 

Vi 


EV 



1301 

*0601 

Q 

*0*01 5 

A 


IS 


/LINENUMBER 

1302 


p 

*0*536 

R 


iNT 


/ENTRY ADDRESS OF 


13^4 

13«S 

13PI6 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 
1316 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 
1326 

1326 

1327 

1328 

1329 

1330 
1 331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 
1376 

1379 

1380 

1381 

1382 

1383 

1384 
1 385 
1386 


00603 B 1*26401 4 
*0604 p 000005 4 


00606 0 000000 4 
00606 p 000000 4 


00607 P 000001 K 
00610 P 000000 4 


00611 P 000000 4 
00610 9 009600 4 
*0613 P 000000 4 


00614 D 00*603 R 
00616 p *00611 R 


00616 

00617 

*0620 

006J1 

00699 

00693 

00624 


* 0*000 
t 4*605 
14*613 
706001 
*00621 
706006 
620616 


*062^ P *00000 4 
"0626 P 140407 R 
00697 B 140554 R 
0063* o 90*615 R 
00631 B 10*616 R 
00639 B *0*634 R 


,I0UND UC15 

UCl5 S4Vfc SP4CE B¥ LE4VING OUT SOME C4 l'S 


t 

WEECe 


TECPB4 

/ 

M7CPB 


20 

EV 

12 

0 

15 

INT 

2700 

EV 

ERRLUN 

2 

13 

EV 

12 

1 

20 

Evl 


WECRCD 20 

COON 


/W4IT FOR EV CPB 


/disconnect CPB 
/EV 40DRESS 

/INTERRUPT LINE NUMBER 

/CURRENT INTERRUPT TH4NSFER 4DDRESS 


/nRITE TO ERRLUN. 


/WRITE OUT THE ERROR MESS4G TO THE DESIRED 
/TELETYPE 


/HARK TIME REO, 


/12 UNITS, 
/UNIT (TICK), 


/W4IRF0R CR INTERRS. 

/WAIT FOR CARD DONE FLAG TO BE SET, 


.ENCC 


/ 

/ 

/ 

/ 

/ 

TCB 


.IPOEF UC15 

I/O information , routines , ETC, FOB UCl5 

TCB (Task control block) telling pop-ii to send us a card 


/ 

Evil 


4PISLT*400*4PILVL 

OEVCOO 

0 

0 

IBUF 

0 


/TELL PDP*11 where to COME BACK 
/PIREX CODE FOR CD)TH£ 200 eiT SAYS 
/WE ARE NOT TO BE SPOOLED, 

/EVENT VARIABLE FROM POPll TO US 
/dummy, HIGH PORTION OF 18 BIT 
/A0RES8, NOT PRESENTLY USED 
/POINTER TO BUFFER TO PUT CARD IN 
/UNIT W) FOR FUTURE GENERATIONS, 


/ TCB TO TELL POPll TO CLEAR OUT CABO READER DEVICE 

0 /THIS WORKS, SEE PIREX FOR INFO, 

OEV COOS 17 7* 468*200 

« /EVENT variable for CLEAR OPERTAION 

/ POTNTFPS To TCHi TOSK 
/ 

TCBP TCB 

TCBKP TC0K 
/ 

/ 

/ CDIU IS THE SUBROUTINE TO SEND A TCB TO THE POP-11 
/ 

/ cal WITH THE AORESS OF THE TCB IN THE AC 
/ 

CDIU 0 


OZM 

OZM 

SIOA 

JMP 

LlOfi 

JMP* 


Evil 

EVllK 


.-1 

COIU 


/CLEAR ONE coming from PDP-11 

/AND THE OTHER ONE, IN CASE IT USED 

/SKIP IF POP-11 CAN TAKE REQUEST 

/TELL IT TO DO TCB WHOSE ADDRESS IN AC 
/THAT'S all there is TO IT, 


/ CLEAR clears switches, ANO CO IN PIREX, WAITS FOR COMPLETE 


/ 

clear 


OZM POST 

OZM COON 

LAC TCBKP /TCB FOR CLEAR 

JMS COIU 

CAL WFCLFR /WAIT FOR CLEAROUT 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cont.) 
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9 *?r»S?5 R 


JMP* 


Clear 


13«7 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 
1 398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 
140« 
1407 


308:^4 6 n0oi0?0 A 
00838 o 000613 R 


00838 0 044000 A 
00837 P 340716 R 

00840 o 840717 R 

00841 O 800171 R 

00840 B 100406 R 


00843 o T77777 A 

00844 o 040571 R 

00845 o 800068 R 


00000k! R 

00848 p 000252 A *L 
00847 P 000101 A *L 

00850 p 000054 R *L 

00851 P 000102 A *L 
"0850 P 00»123 a *L 

00853 P 000010 A «L 

00854 p 000562 R *L 
00888 P "70000 A *L 
00858 P 000337 A *L 
00857 p 000777 A «L 
00860 P 000004 A *L 
"0861 P "00025 A *U 
00862 p 000026 A *L 
00*63 P 000036 A *L 
00664 P 000017 A *L 
00868 p 00"325 A »L 
00868 p 000332 A *L 
00867 P 20000/ A »L 

00870 P 000103 A «L 

00871 P 00»104 A »L 

00872 P 000342 A *L 

00673 p *00003 R »L 

00674 p 104611 A «L 
00678 P 000340 A *L 
00878 P 700445 A *L 
00877 e *01005 A *L 

00700 P 000012 A »L 

00701 p 000013 A *L 

00702 p 000377 A *U 

00703 P 000020 A «L 

00704 0 000240 A »L 
00708 p 000273 R *L 
00708 p 00*177 A *L 
00707 p 700000 A *L 
0071* P *64000 A *L 

00711 P 401000 A *L 

00712 P *0"345 A iL 

00713 P "0»107 A «L 

00714 P 00006M A *L 
00718 p *00361 A *L 


/ 

WECLEK 20 

EVIIK 

/ coucEC examines negative Event variables from pirex 
/ 


CDUCEC 

CLLJRAr 


/CLEAR OTHER TOP BIT 


TAD 

(600000 

/SIGN Extend to pop-i5 word 


SAO 

(777001 

/THIS ONLY 'LEGAL' VALUE AT PRESENT 


JMP 

retry 

/that SAYS PIREX IS OUT OF NODES, 

/ 

JMS 

sevrn 

/WE Should try again to get one 

/OTHERS, RETURN NEG VARIABLE AS EV. 

/ 



/THIS IS slightly flakey, but we 

/ 

LAR 

-1 

/really should NEVER GET HEREJ7J7 
/SAY NO MORE READ OUTSTANDING 


DAC 

RRN 



■Imp 

PO 

/BACK TO LOOK FOR MORE WORK 


/ 


.ENOC 

.end start 


0071* P «0*000 A »L 
00717 P 777001 A *L 

si7E*0072(4 NO Error lines 


Figure 4-2 

PDP-15 CRll RSX-PLUS III Handler (cont.) 
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4. 6. 3. 3 Requests - Following handler initialization, requests can be 
processed. Note that the request de-queuing algorithm (see Figure 4-2 
lines 351-406) is executed whenever Q-I/0 places a request node in the 
list associated with the handler's PDVL node or whenever an interrupt 
for the device has occurred on the PDP-15. The latter condition 
implies that the handler's interrupt service routine (Figure 4-2, lines 
1090-1119) will set the trigger event variable on each interrupt. 


4. 6 . 3. 4 ABORT Requests - Because of the nature of the UNICHANNEL 
configuration, ABORT requests should be handled on a high priority 
basis. Hence, whenever the trigger event variable is set, the handler 
should first check to see if an ABORT request has been issued. 

(Figure 4-2, lines 352-356). This condition can be tested using the 
following algorithm: 


LAC TG 

RTL 

SPA 

JMP PICK 


/GET THE TRIGGER EVENT VARIABLE INTO THE AC 
/MOVE THE ABORT BIT INTO BIT ZERO OF THE AC 
/SKIP IF ABORT BIT IS NOT SET 
/ABORT REQUEST-DEQUEUE AND PROCESS IT 

/NOT AN ABORT REQUEST — CHECK OTHER 

/REASONS FOR HAVING TRIGGER EVENT VARIABLE SET. 


4.6, 3.5 Interrupts - If the trigger event variable was not set due to 
an ABORT request, either PIREX has issued an interrupt or a new 
request for I/O is pending. Before checking for new requests, the 
handler should see if an interrupt occurred (see Figure 4-2, lines 
358-361) . If it did, the handler should check to see if an interrupt 
was requested. Unrequested interrupts should be ignored but the 
handler should finish processing the outstanding I/O request if the 
interrupt indicates that I/O is now complete. 

If the trigger event variable was not set due to an interrupt and no 
I/O is being processed by PIREX, the handler can pick off the new 
I/O request and begin processing it (see Figure 4-2, lines 367-406). 

On ABORT requests, the handler should determine if I/O is in progress 
on the PDP-11 for the task being aborted (see Figure 4-2, lines 
1057-1066) . If so, the handler should issue a "clear device directive" 
to PIREX to stop the I/O in progress (see Figure 4-2, lines 1072-1079). 

The "clear device directive" must also be issued whenever a DISCONNECT 
and EXIT request from the MCR function REASSIGN is processed (see 
Figure 4-2, line 1032). 


4.6. 3.6 READ and WRITE Requests - READ and WRITE request processing 
usually involves the following procedures: 

1. Checking the range of the issuing task's TCB and buffer. 

2. Making data conform to PDP-11 standards for WRITE requests 
and PDP-15 standards for READ requests. 

3. Sending a TCB directive to PIREX. 
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4 . 


Waiting for PIREX to complete the operation initiated by 
sending the TCB directive. 

5. Checking the event variable sent back to the handler by 
PIREX. 

6. Setting data into the issuing task's request buffer for READ. 

7. Sending an event variable to the task which initiated the 
request for I/O. 


The following is a brief outline of the procedure used by the UNI- 
CHANNEL Card Reader handler when it processes a read request. 
(Refer to Figure 4-2) . 


1. Dequeue the I/O request node (lines 351-406) 

2. Check the range of the task TCB and buffer (lines 439-464). 

3. Clear the TCB event variable (line 1371) 

4. Clear the "I/O Done" flag (line 641) 

5. Set the "Interrupt Expected" flag (lines 639-640) 

6. Issue the READ TCB to the Card Reader Driver in PIREX 
(lines 1373-1375) 

7. Wait for the Trigger Event Variable (line 351) 

8. When the Card Reader Driver has completed the request, the 
Card Reader handler interrupt service routine sets the 
Trigger Event Variable and the "I/O Done" flag (lines 112-113) . 

9 . The handler then checks the Event Variable sent back by 
PIREX (lines 652-655) . 

10. Convert the data to PDP-15 card format and transfer it to the 
task's buffer (lines 664-878) 

11. Set the task's Event Variable (lines 879-880). 

12. Wait for the next request (line 351). 


Note that in order for a UNICHANNEL handler to function properly, the 
PDP-11 must be able to access the handler's internal buffers and 
TCBs . Hence, all locations within these TCBs and buffers must be 
within the common memory accessible to the PDP-11.^ Also, note that 
the RSX POLLER task should be modified to interrogate PIREX concern- 
ing the status of the new device. 


4.7 BUILDING A PIREX DEVICE DRIVER 

A device driver is a software routine that performs rudimentary I/O 
functions. PIREX device drivers typically operate in conjunction 
with more complex PDP-15 handlers. While a rudimentary device driver 
is typical, a PIREX task can be as complex as a full handler. The 


(1) Depending on Driver task design the buffers for an NPR device 
may not have to be in common memory. 
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PIREX XY driver is a good example of a very complex driver. The 
PIREX line printer driver, a typical rudimentary driver, will be used 
to examine the construction of a device driver. 


4.7.1 General Layout 

The general layout of a driver task (see Figure 4-3) consists of: 

1. A stack area which will be used when the task is executing 

2. The address of a device control register. This is used 

to stop the device during STOP I/O requests. Dummy addresses 
are used for tasks which are not device drivers . 

3. A 2-word busy/idle switch used to store the caller's 18-bit 
TCBP. When the busy/idle switch is zero, the routine is 
not busy. 

4. The task request setup/processing section 

5. The task interrupt processor section, if the task is a device 
driver. 

The task request setup/processing section obtains the parameters 
from the TCB and uses them to set up the referenced device or process 
the request. Entry into this section is made from the ATL scanner 
or DEQU with the current task stack area active at the priority level 
associated with that task. All general purpose registers are avail- 
able for use by the current task at this time. The TCBP is stored 
in the busy/idle switch preceding the request section and signifying 
that the task is busy. Once some operation is underway or completed, 
the task returns to the ATL scanner by issuing the 'SEXIT' macro in- 
struction (refer to Section 4. 7. 2. 4). 


If the task is a device driver, the interrupt section is called at 
the completion of an I/O request. All device interrupt priority 
vectors specify priority 7 . This is done to save the general-purpose 
registers on the current task stack pointer and lower the system to 
the priority level of this task. 

Control is transferred to the driver, which then checks for errors, 
stores status info 3 rmation into the TCB, clears the device busy 
switch (the driver becomes idle when the busy switch is cleared) and 
sends an optional interrupt (via SEND15, see Figure 3-6) to the system 
informing it that the request has been processed. The driver then 
transfers control to the routine DEQU (see Figure 3-7) to determine 
if more requests are in its TRL. If not, control is transferred to 
the ATL scanner, after saving the task stack pointer and setting the 
task status to the wait state in the ATL node. 


4.7.2 Task Program Code 

'pji 0 task program code is necessary to carry out the task s function. 
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PIRCX.nS MACRO-11 VIA 

LINE printer driver FOR LPll/1 

I .5BTTL 

5 .even 

6 I 

7 177514 LPCSR*177514 

8 177516 LP0UF«i77516 

9 080886 LRSA«6 

10 000812 LRI0T«12 

II 000814 LPSTAT.14 

12 001254 lPEST»LP.EST+4 

13 001252 LPLiNN»uP.EST+2 

14 008084 lPTCODsA 


page 29 
5 

line printer driver for lPII/15 


jADDR in pirex error table for not readv 
lAOOR for unit # CFOR NOW 0) 
lUlNE printer task code 


15 

16 


17 

16 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 86316 

33 06416 

34 

35 

36 06420 

37 06422 

38 

39 

40 

41 06424 

42 00424 

43 06430 

44 06434 

45 06440 

46 06444 

47 06450 
46 864S2 

49 06454 

50 06460 


177514 


000000 

000000 


005037 

001350 

016700 

177766 

005060 

000014 

016001 

000010 

005760 

000006 

100403 

006301 

06675'! 

171360 

112102 


MAKE The pop-i5 do all The work, the pdp-ii simply get s a count 

OF characters To print out. we treat the control characters 

12.15. AND 14 Only, a minus character is converted into minus 

THAT number of spaces'. NOTE ALL REAL ASCII CHAR'S HAVE A ZERO LEADING BIT! 

EaCh line has an implied carriage return THAT IS ADDED BY THE DRIVER 

rather than sent by The pop-i5 


note, if header word OF BUFFER HAS' 400 BIT SET, IT IS 
image mode, and we NifrTHER BUT ON LF OR CRll 


CALL 

TO routine has aDdRESS 

OF TCB IN handler BUSY CIDLE5 REGISTER 


.BLOCK 

8.+EAESTk*4 

JAOORESS OF lPCSR CONTROL STATUS 
1 REGISTER USED TO RESET DEVICE 

1 ON STOP I/O operations. 


.WORD 

lpcsh 


.WORD 

0 

;TCB POINTER (EXTENDED BITS! 


.WORD 

0 

>TCB pointer (LOWER 16 BITSI . THIS 
; WORD IS USED AS ThE IDLE/BUSY 
; SWITCH FOR THE DEVICE DRIVER. 


CLP 

••lp.cl 

ICLEAR OUT any PENDING TIMER REQUESTS FOR US 


MOV 

LP-2.R0 

jSETUP R0 TO POINT TO TCB 


CLP 

LPSTATfP0) 

JCLEAR STATUS FLAG IN TCB 


MOV 

LPSA*2fP0) ,R1 

jGET BUFFER START ADDRESS 


TST 

LPSAfRPi 

lOON'T RELOCATE ADDRESS IF BIT 15 


BHI 

1» 

t IS ON. 


ASL 

Rl 

jRElOCATE address (word to byte POINTER) 


ADO 

mEMSIZ.Ri 

) (♦ ll'S OWN LOCAL memory) 

$3 

MQVB 

(P1)*,P2 



51 

06462 

042702 

17/400 


BIC 

#177400, p2 

52 

06466 

112767 

000015 

000464 


MQVB 

#15,LPF0l 

53 

06474 

122121 

2SI 

CMPB 

(Pl) + , (RJ)* 

54 

06476 

112721 

000012 


MQVB 

*12, (Rl)+ 

55 

06502 

132761 

000081 

177775 


eiTB 

#1,-3(911 

56 

06510 

001403 


BEO 

3» 

57 

06512 

105067 

000442 


CLPB 

LPEDL 

58 

06516 

000410 


BR 

4S 

59 

06520 

122711 

000014 

3$: 

CMPB 

#14, (Rl) 

60 

06524 

001405 


BEO 

4i 

61 

06526 

122711 

000015 


CMPB 

*15, (Rl) 

62 

06532 

001402 


BED 

4S 

63 

06534 

005301 


OEC 

Rl 

64 

0.6536 

005202 


INC 

R2 

65 

06540 

010267 

000410 

4SI 

MOV 

R2,LPBTCT 

66 

06544 

010167 

000402 


MOV 

R1,LPBI'FF 

67 

06550 

105067 

000402 


clpb 

LFTAB 

66 

06554 

105737 

177516 


TST8 

••LPBUF 

69 

70 

71 

72 

73 

06560 

06566 

06566 

06570 

06571 

052737 

000100 

177514 

000004 

000 

002 

; 

1 

BIS 

SEXIT 

lOT 

.BYTE 

#100,0#LPCSR 

waitst 

0,WAIT5T 


»CLEAR OUT TOP OF REGISTER 

;default, ascii, here is <CP> 


jRl«Rl+2 

;0EFAULT, PRECEED line with LINE FEED 
;400 BIT SET IN header IF IMAGE 


;NOT IMAGE, CHECK FORMS CONTROL 
jIMAGE, DON'T FORCE CR AFTER MESSAGE 

;ALL0H all FORMS CONTROL 
jFIRST CHAR FORM FEED? 

;YE8, DON'T ADO LINE FEED TO LINE 

>FIR5T char CARRIAGE RETURN 

;YES, DON'T ADO LINE FEED TO LINE 

;M0VE pointer back TO LINE FEED 
;COUNT ADDITION OF LF TO BUFFER 
ISAVE COUNT 

jSAVE POINTER 


IHISTORY SAYS THIS HERE 
^enable INTERRUPTS TO LP GOING 


jEXIT IN A wait STATE AND RESCAN 


I THE ATL NOW. 


Figure 4-3 

UNICHANNEL LP Driver 
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PIREX.116 MACPO-ll VIA page 3n 

line printer driver for LPII/15 

1 f UP interrupt entrance 

2 I 

3 006S72 LPINTI 

4 000572 042737 0IC Pl00,P«LPCSR 

000100 

177514 

5 006600 004067 JSR R0iR,SAVE 

173154 

6 006604 000004 4 

7 006606 016700 MQV lP-2iR0 

177610 

8 006612 001507 0EO lP*T 

D 

10 06614 005737 TST RPLPCSR 

177514 

11 06620 100454 BNI L^ERR 

12 06622 005037 CL« PPLP.CL 

001350 

13 06626 UPLQP: 

14 06626 105737 TSTB P*LPCSR 

177514 

15 06632 100043 BPL L^STTL 

16 06634 105767 TSTB lPTAB 

000316 

17 06640 100421 BMI 4S 

18 06642 005367 DEC L^BTCT 

000306 

lO 06646 100424 BHI 3$ 

20 06650 105777 TSTB rLPBUFF 

0002^6 

21 06654 100406 BNl 68 

22 06656 117-737 MOV0 pLPBUFF , *rLPBUF 

000270 

177516 

23 06664 005267 INC LPflUFF* 

000262 

24 06670 000756 BR LPUOP 

25 ; 

26 06672 117767 6»l MOVB PLPBUFF , i PT AB 

000254 

000256 

27 06700 005267 INC lPBUFF 

000246 

28 06704 105267 4S< INC0 lPTAB 

000246 

29 06710 112737 MQVB #40,#(,lP0UF 

000040 

177516 

30 06716 000743 RR LPLOP 

31 06720 105767 5»! TSTB lPEOL 

000234 

32 06724 001403 BEG 78 

33 06726 116737 RQVb lPEOL , PPlPBUF 

000226 

177516 

34 06734 005260 7*1 INC lPSTAT(R0) 

000014 

35 06740 000417 BR LPXIT 

36 ) 

37 06742 052737 LPSTIL: BIS Pl00,pi*UPCSR 

000100 

177514 

38 06750 000il1 1 OD iPvTVi 

39 ■■ , 

40 06752 012737 LPERR: MOV #LPCHk , FrLP.CL 

007064 

001352 

41 06760 012737 MOV pl70,p«LP,CL 

000170 

001350 

42 06766 112737 MQVB P4,rrlpEsT 

000004 

001254 

43 06774 000167 LPXITu JMP oEQUt 

174270 

44 I 

45 07000 105037 LPXIT« CI.RS pPLPFST 

001254 

46 07004 052767 BIS p340,PS 

000340 

170764 


lOISABLE LP INTERRUPT 

ISAVE REGISTERS 

/TASK code 
;GET TCB POINTER 

;IGNORE IF ITS ALREaDT BEEN STOPPED BV 
; A STOP I/O REQUEST. 

/CHECK FOR ERROR 

/YES 

/CLEAR OUT ANY PENDING TIMER REQUEST FOR US. 

/IS printer currently GOING? 

/YES: FORGET CHAR FOR NOW 

/IN TAB EXPANSION To SPACES? 

/YES 

/DECR char COUNT 

/WENT TO -1, MAKE CR TO FINISH LINE 
/MINUS byte IS Tab expansion count 

/IS ONE, GO set up 

/STICK CHAR INTO LINE PRINTER BUFFER 

/MOVE POINTER TO NEXT CHAR 
/GO DO NEXT 

/SET UP TAB COUNT (MINUS, A LA 15) 

/COUNT A space For this tab 
/SPACE TO LINE PRINTER 

/GO DO NEXT 
/IMAGE OR ASCII 

/IMAGE, DON'T FORCE <CR> 

/ASCII, HERE IS <CARR1aGE RETURn> 

/SET REV TO GOOD COMPLETION 

/ENABLE INTERRUPT ON LP 

/RESTORE R8-R5 AnD RETURN 
2/ADOR FOR TIMER REO, 

/TWO SECONDS In TICKS (OCTAL) 

/ERROR CODE l, NOT READY TO TABLE 

/SCHEDULE next TaSK 

/INDICATE SUCCESSFUlL OPERATION 
/INHIBIT INT. 


Figure 4-3 

UNICHANNEL LP Driver (cent.) 
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PlREX.116 


MACRO-11 VIA 


LINE printer driver FOR 

LPll/1 

47 

07012 

008037 

177514 


CLR 

48 

07016 

012701 

000001 


MOV 

49 

07022 

016700 

177374 


HOV 

S0 

07026 



CALL 


07026 

004767 

174300 


JSR 

51 

07032 


LPXT: 


52 

07032 

052767 

000340 

170736 


BIS 

53 

07040 

005067 

177356 


CLR 

54 

07044 

005067 

177350 


CLP 

55 

07050 

012703 

006424 


MOV 

56 

07054 

012701 

001430 


MOV 

57 

07060 

000167 

174122 


JMP 

88 



} 


59 



1 


60 



t 


61 



1 


62 



1 


63 



1 


64 

07064 

005767 

177332 

lpchkj 

TST 

65 

07070 

001427 


BEO 

66 

07072 

005737 

177514 


TST 

67 

07076 

100422 


BMI 

68 

07100 

012702 

000010 


MOV 

69 

07104 

016201 

001140 


MOV 

70 

07110 

012767 

006424 

177274 


MOV 

71 

07116 

042761 

00001/ 

000006 


BIC 

72 

07124 

012761 

006376 

000004 


MOV 

73 

07132 

006202 


ASR 

74 

07134 

116267 

001121 

177252 


MOVB 

75 

07142 

000402 


BR 

76 

07144 

012710 

000170 

7H 

MOV 

77 

07150 

000207 

10s: 

RTS 

78 



> 


79 

07152 

000000 

LPBUFFj 

.WORD 

80 

07154 

000000 

LPBTCT: 

.WORD 

81 

07156 

000000 

lPTab: 

.WORD 

82 

07160 

000 

LPEOL: 

.BYTE 

83 

07161 

000 

LPXTR! 

.BYTE 

84 



1 


85 




.ENOC 

86 



1 



PAGt 3n* 

5 

P*»LPCSR 

«1>R1 

lP-2,R9i 

SEN015 

PC,SEND15 

«340,P8 

I.P-2 

LP-4 

<*tP,R3 

A»I-P.LH,R1 

OEOU 


ISHUT LP INT. enable 

jtell caller done 

iGET reap 
jTELL caller done 

lINHIBIT interrupts 
JCLEAR BUSYCIDLE) FLAG 

lOEQUEUE another request IF ANY 
» IN THIS DRIVERS DEQUE. 


subroutine to field clock COUNT-OOWn 


LP-2 

108 

pRLPCSR 

7» 

#LPTC00*8|R2 
aTlnP(R 21 ,R1 
#LP,LP-l2 

«17,4,TSfRn 


fHAVE ME BEEN DISABLED 

»IF YES, exit, leaving CLOCK DISABLED 
lERROR FIXED 

|MINUS»ND. RESTART 2 SEC. TIMEOUT 
jSCAN ATL FOR OUR NODE 


^RESTART AT BEGINNING OF RED. 

|R1 POINTS TO OUR NODE, MAKE RUNNABLE 


PLP-26,A.SP(Rl) ISET UP STACK POINTER 


r2 jmake byte addressing 

lEVEL(R 21 »LP-10 iSET UP PS 


10$ 

#17P, (R0T 

PC 

0 

0 

0 

0 

0 


|R0 POINTS TO TIMER ENTRY 

IRETURNS TO clock 

;BUFFER POINTER 

JBYTE COUNT 

jTAB location 

10 IF image, 15 IF ASCII 

JMAKE even 


Figure 4-3 

UNICHANNEL LP Driver (cont.) 
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4. 7. 2.1 Code Sections - The program code section of a device driver 
is composed ,of three or four of the following subsections (refer to 
Figure 4-3). 

1. Equates, device locations, etc. (Page 29, lines 7-14). 

2. Initialization and I/O request section (Page 29, lines 1-73); 
used to set up and initiate a device operation. 

3. Interrupt section, used to respond to the completion of a 
device operation and to check for errors (Page 30, lines 1-59). 

4. An optional clock wake-up section; used to check the correc- 
tion on an error condition and either retry the offending 
operation or set another wake-up call (Page 30, lines 60-86). 

4. 7. 2. 2 Task Entry — Initialization - When the task is initially 
called, the user stack area is reset. Execution normally begins at 
the first location of the program code. At this point, all general 
purpose registers are available for use by the task. If the task is 
interrupted by a higher priority task before completing the request, 
execution will resume at the point of interruption when program 
control is returned. Various steps in device driver (Figure 4-3) 
initialization include 

1. Clearing out any pending timer requests (if the task uses 
wakeup services). (Page 29, line 42). 

2. Setting up a pointer to the data buffer and relocating the 
pointer value if it comes from the PDP-15 (Page 29, lines 
43-49) . 

3. Various device dependent operations (Page 29, lines 50-68). 

4. Start up the device (Page 29, line 69). 

5. Exit in a WAIT state (Page 29, line 70) until reawakened by 
an interrupt (see Section 4. 7. 2. 4). 


4. 7. 2. 3 Interrupt Processing - An interrupt transfers control to the 
device driver interrupt section at priority 7. Interrupt processing 
(Figure 4-3) is composed of the following steps: 

1. Disable the device interrupt (Page 30, line 4) 

2. Save the interrupted task registers switch stacks and drop 
down to the task's actual priority as specified in the LEVEL 
table. This is all accomplished by a JSR RO , R.SAVE (Page 
30 , lines 5 and 6) . 

3. Test the task busy idle switch to see if the request has been 
cancelled (Page 30, lines 7 and 8). If it was cancelled, 
use the normal DEQU exit without sending a completion message 
to the caller (see Section 4. 7. 2. 4). 


(1) Page number refers to the page number at the top of the PIREX 
listing . 
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4. Perform task interrupt processing and error checking 
(Page 30, lines 10-36). 

5. If a correctable error is detected, set the error code in 
the DEVST table. This error code should indicate a correct- 
able error. The DEQUl return should be used in conjunction 
with a clock wake up call to allow automatic retry of the 
operation (Page 30, lines 40-43). See Section 4. 7. 2. 4 for 
information on DEQUl and Section 4.7.3 for information on 
the timed wake-up. 

6. If a fatal error occurs, the event variable should be set to 
indicate this eror. 

7. If the operation was successfully completed, use the normal 
exit procedure described in Section 4. 7. 2. 4 (Page 30, lines 
45-57) . 


4. 7.2.4 Exit Techniques - When a task has finished execution, it can 
exit by issuing the SEXIT macro (exit and change state of task to 
"s"). 


.MACRO SEXIT s 
lOT 

.BYTE 0,S 
.ENDM 

The SEXIT macro allows a task to change status to state "s" after 
exiting. A task state of "0" indicates the task is runnable, a 
state of "2" indicates a wait state, and a state of "4" indicates a 
stop state with removal of the ATL node. Task states must always 
be an even number since they are used to compute a word index in the 
PDP-11. 

There are actually three modes in which a task may exit. In the first 
mode, used on completion of a request, before a task exits, it must: 

1. Zero the busy/idle switch. 

2. Set the caller's Event * Variable to indicate the nature of 
task completion and send an optional interrupt to the 
PDP-15 or the PDP-11. 

3. Dequeue a request from its deque and process it if found; 
otherwise exit. 

Before a task can begin the three previously mentioned steps, it must 
be executing at level 7 (the highest priority level in the PDP-11) . 

As an example, assuming a task name is "XR" (the first executable 
instruction of every task has the task name as its label) , then the 
following program code would accomplish the three necessary steps: 

BIS #340, 0#PS; INHIBIT INTERRUPTS 

MOV #?,R1 ;SET CALLER'S EV TO ? (APPROPRIATE VALUE) 
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CALL SEND 15 


AND SEND CALLER 
AN OPTIONAL INTERRUPT 
TELLING THE REQUESTOR THAT THE 
REQUEST HAS BEEN PROCESSED. 

(A COMPLETE LIST OF EVENT) 
VARIABLE SETTINGS MAY BE 
FOUND IN SECTION 3. 2. 5. 4 


BIS 

#340, 

@#PS; INHIBIT INTERRUPTS, 



CLR 

XR-2 

; CLEAR THE BUSY/IDLE SWITCH ("XR" is the tag 
associated with the first executable 
instruction in the task program code.) 

CLR 

XR-4 




MOV 

#XR,R3 

; DEQUEUE ANOTHER REQUEST 

IF ANY 


MOV 

#XR,LH 

,R1 



JMP 

DEQU 

; EXISTS IN THIS TASK 

'S DEQUE 



IF A REQUEST EXISTS, NO RETURN 


; .IS MADE FROM ROUTINE DEQU 

; AND THE REQUEST IS AUTOMATICALLY 

; REMOVED AND PROCESSED AS IF IT 
; WERE JUST RECEIVED WHEN THE 

; TASK WAS IDLE. 

This first method is used in the interrupt section upon successful 
completion of a request. The second method is one where the task 
exits from the initialization section (Figure 4-3, Page 30, lines 
46-57) in a wait state using the SEXIT macro, and an interrupt 
routine or other task will complete the previously mentioned three 
steps at a later time. A device driver is typically exited in this 
way (Figure 4-3, Page 30, line 75). The initial section of the 
device driver is used to set up the device controller and begin the 
I/O operation. The task will then exit in a wait state until the I/O 
is complete, the interrupt section is called, the device is shut down, 
and the previously mentioned three steps are done informing the 
requestor that the I/O operation has been completed. 

The third method of exiting is one used either when a recoverable error 
is detected in the interrupt section of a driver and the intention is to 
exit and wait for an error recovery or when another I/O request is issued 
in the interrupt section and another interrupt is expected. This exit 
through DEQUl does not cause the dequeuing of pending requests but sim.ply 
places the task in a WAIT state. This method assumes that an R.SAVE has 
been performed upon entry to the interrupt process routine. The required 
code to use this exit is: 

JMP DEQUl 
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No registers are preserved by this exit. Control is returned to the 
interrupt section upon occurrence of an interrupt or via the clock 
routine wakeup, to a location chosen by the clock set up section. 
(Figure 4-3, Page 30, line 43) , 


4.7.3 Timed Wakeup 

In the design of a device driver it is useful to include features that 
eliminate operator intervention whenever possible. 

For instance, in the example of the PIREX Line Printer Task, an OFF 
Line condition is handled by retrying the printing every two seconds 
until successful. This is accomplished by using the wakeup feature of 
the Clock Task. This is done by simply placing the return address 
and the time delay into the Clock Table "CLTABL" (See Section 3.3.4) 
Figure 4-3, Page 30, lines 40-41) and the exits using the DEQUl type 
exit . 

When the wakeup call occurs, the clock wakeup subsection specified 
by the return address will be invoked. In this subsection: 

1. Test the task IDLE/BUSY switch to see if the task has been 
shut down. If shut down, a RTS PC return to the Clock Task 
is in order. (Page 30, lines 64-65, 77) 

2. Determine if the error has been corrected. If not, reset 
the timer and RTS PC to the Clock Task. (Page 30, lines 
66-67, 76-77). 

3. If the error has been corrected, reprocess the original TCB 
request and return to the Clock Task. (Page 30, lines 68-75). 
This will cause PIREX to retry the TCB. 


4.7.4 Assembly and Testing 


4. 7. 4.1 Assembly and Loading - New PIREX device dirver should be 
assembled as a part of the PIREX monitor. Background tasks may be 
assembled separately. 

In the background task case, the user should construct a PDP-15 pro- 
gram to load the background task binary into PDP-15 memory. The 
PDP-15 program must then issue a CONNECT Directive (Section ) 

To start the task, if the task is to execute in PDP-11 local memory, 
two additional steps are required: 

1. Issue a local memory size directive to determine if there 
is enough local memory to accomodate the new task. 

2. Issue a CONNECT directive (assuming there was enough room 
in local memory for the task) . 

3. After issuing the CONNECT directive, use the initial portion 
of the PDP-11 code to move the remainder of the task into 
the local memory starting at the first free location. 
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4. 7. 4. 2 Testing - Since the typical UNICHANNEL system does not have 
a terminal device attached to the PDP-11 processor, the only debugging 
facility present is the console indicators on the PDP-11. An' 
additional aid is the UDMPll paper tape provided with all UC15 DOS-15 
systems. This program provides a destructive dumping facility that 
recovers the entire state of the PDP-11 LOCAL memory and dumps it into 
the LPll/LSll/L'Vll Printer. (Note: The UDMPll program is an 

unsupported package that can only be used on systems with a printer 
device on the PDP-11 UNICHANNEL Processor) . For tasks executing in 
the common memory, the traditional f Q-DUMP feature of the DOS-15 
monitor should be used. 
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CHAPTER 5 

SPOOLER DESIGN AND THEORY OF OPERATION 


5.1 INTRODUCTION 

This chapter discusses the design concepts of the UNICHANNEL-15 
SPOOLER software and its theory of operation. This information is 
provided to enable the user to understand the SPOOLER software in 
order to add new SPOOLED tasks or to modify existing software. The 
actual modification process is described in Chapter 6 . Flowcharts are 
provided whenever it is necessary. 


5 . 2 OVERVIEW 


5.2.1 SPOOLER 

The word 'spool' and 'spooling' originated in the textile industry. 
During thread manufacture, the threads are wound on small spools by 
first storing them on large spindles and then transferring them onto 
small spools. This entire process is called spooling. In the com- 
puting industry, the term spooling is used to describe the process of 
collecting and storing data on a large high-speed medium and con- 
trolling the flow of this data to slow speed devices. The "SPOOLER" 
is a distinct piece of software that controls the entire spooling 
operations. Spooling permits data flow between a data source and a 
data sink to proceed at independent rates. This feature gives the 
user greater computing power and faster turn-around time because of 
better system resource utilization under an integrated operating 
system. 


5.2.2 UNICHANNEL-15 Spooler 

In the UNICHANNEL-15 system, spooling is achieved by using the dual 
processing capability of the system. The two processors, PDP-15 and 
PDP-11, operate in the Master and Slave mode respectively. The Slave 
processor (PDP-11) controls the entire spooling operation. Data to 
be spooled is supplied by either the master processor (PDP-15) , or by 
tasks running under PIREX. Spooled data is stored on a disk cartridge. 
The Line Printer, Card Reader, and the Incremental Plotter, all being 
UNIBUS devices, are supported by the UNICHANNEL-15 spooler. 
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5.3 SPOOLER DESIGN 

The UNICHANNEL-15 SPOOLER is based on a simple design. Spooling 
of data is done through the RK05 disk. A contiguous portion of 
disk is allocated via SPLGEN for this purpose by the operating 
system on the PDP-15. The starting block number and the size in 
terms of number of blocks is conveyed to the SPOOLER when it is 
issued the 'BEGIN' directive. The SPOOLER allocates and deallo- 
cates this space on the disk through a BITMAP it maintains. The 
spooling and despooling operations of every task are performed 
through a central "TABLE", in which every spooled task has a slot. 
Against each slot there are several entries used to keep track of 
the data during spooling and despooling. Provisions are made 
in the SPOOLER to permit spooling of data regardless of the number of 
blocks occupied in the spool space and the number of buffers in the 
SPOOLER provided despooling operations are going on. This prevents 
system lockout. All the data blocks on the disk belonging to a 
spooled task are linked together by forward pointers stored in the 
last word (377g) of each data block. The end of data in a block is 
indicated by a zero word. Records are assumed to be less than 374g 
words in size. The last block in a spooled file has a pointer to 
the previous file's last block in word 'I'g or a -1 if there is no 
active previous file, if the last spooled file has not yet been 
despooled. Also the last block in a spooled file contains an end of 
file indicator in word ' 3763 ' of the data block. Sections 5.3 and 5.4 
describe the static layout of the spooler. The dynamic layout is 
described in Section 5.5. 


5.4 SPOOLER COMPONENTS 

The following are the major components of the SPOOLER software: 

1. request dispatcher 

2. directive processing routine 

3. task call service routine 

4 . device interrupt dispatcher 

5. device interrupt service routine 

6. utility routines 

7. buffers, TABLE, BITMAP, TCBs 

A brief description of each of the above components follows. 


5.4.1 Request Dispatcher 

This routine dispatches (routes) all requests made by the SPOOLER and 
requests to the spooled tasks. This is done by using the TCN in word 
'1' of the TCB. The dispatcher transfers control to the appropriate 
directive processing routines, in the case of spooler requests and 
to the task call service routine, in the case of requests to spooled 
tasks . 


J-36 


5-2 



5.4.2 Directive Processing Routines 

These routines process directives issued to the SPOOLER to control 
spooling operations. The basic operations are "BEGIN" spooling and 
"END" spooling. These routines may initialize switches, TABLE, BIT- 
MAP, pointers, buffers, set up TCB, start tasks, stop tasks, ... etc. 


5.4.3 Task Call Service Routines 

A task call service routine processes requests addressed to tasks 
running under PIREX. It spools data onto disk in case of output tasks, 
and for input tasks it despools the data from disk. Output tasks buf- 
fer data from several requests into blocks and transfer the blocks to 
disk when full. Input tasks read into core, data blocks stored on 
disk, and unpack the data into the requestor's buffer. Task Call 
Service Routines update the TABLE, pointers, and switches, and use the 
utility routines present in the SPOOLER to write or read a block onto 
or from the disk, get or give a buffer, get or give a TCB, etc. (Refer 
to Figure 5-2.) 


5.4.4 Device Interrupt Dispatcher 

All interrupts from devices interacting with the SPOOLER are dispatched 
by this routine to the appropriate service routines. This is done by 
using the TCN of the requestor for that task request present in word 
'13g' of the TCB. 


5.4.5 Device Interrupt Service Routines 

These routines handle completion of I/O requests from devices. They 
supplement the driver routines present in PIREX as in the device 
handlers. Besides the disk interrupt service routine, each spooled 
task has its own interrupt service routine. The disk interrupt ser- 
vice routine is made up of the "read interrupt processor" and the 
"write interrupt processor." These are in turn made up of routines 
handling read/write operation for each specific spooled task. The 
interrupt service routine of a spooled task controls the despooling 
operation for output tasks and the spooling operation for input tasks. 
These operations are driven by the table entries which determine the 
end of the operation. Device interrupt service routines update the 
TABLE, pointers, switches and use the utility routines to write or 
read a block onto or from the disk, get or give a buffer, get or give 
a TCB , etc . 


5.4.6 Utility Routines 

Each SPOLll utility routine performs a specific function. They are: 

FINDBK Find a free block on disk and set its bit in the 

BITMAP Table (protected) . 1 

(1) Protected routines are those run at priority level 7. 


5-3 



FREEBK 

GETBUF 

GIVBUF 

GETRKT 

GIVRKT 

GETBLK 

PUTBLK 

GETPUT 

RESTRQ 

DEQREQ 


Free the block indicated and reset its bit in the 
BITMAP Table. 

Get an unused buffer from the buffer pool (protected) . ^ 
Give the used buffer back to the buffer pool. 

Get a disk TCB from the Disk TCB pool. 

Give back the TCB to the Disk TCB pool. 

Read a block from disk. 

Put a block on disk. 

Get or put a block on disk. 

Reissue a delayed request. 

Tell requestor that a request is done and dequeue 
the next request, if any. 


5.4.7 Buffers, TABLE, BITMAP, TCBs 

Buffers The SPOOLER maintains a pool of buffers in a doubly 
linked list for general use. Buffers are used to 
pack data into blocks to be written onto disk (by out- 
put task call service routines) and to unpack data 
from data blocks read from disk into requestor buffers 
(by input task call service routines) . 

TABLE The entire spooling and despooling operation of all 

tasks is controlled by entries in this table. Every 
spooled task has the following entries : 

WORD 0: DEV device mnemonic (set by the BEGIN 

routine) 

WORD 1: CBN current despooling block number (set 

by the despooler) . 

WORD 2: CRP current record pointer (set by the 

despooler) . 

WORD 3: NBN next despooling block number (set by 

the despooler) . 

WORD 4: LSB last spooled block number (set by the 

spooler) . 

WORD 5: LFB last spooled file block number (set by 

the spooler) . 


(1) Protected routines are those run at priority level 7. 
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BITMAP 
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A record of availability of disk spooling space is 
maintained in the BITMAP. Corresponding to each disk 
block reserved for spooling is a bit which is 'ON' 
if the block is in use and 'OFF' if free. 

TCBs Buffered blocks of data are read from disk and 

written onto disk using TCBs . Output spooled tasks 
despool data to devices using TCBs and input spooled 
task spool data from devices using TCBs. 


5.5 THEORY OF OPERATION 

This section will describe in detail the flow of control in the 
SPOOLER among the above components. To illustrate this process, the 
spooling and despooling operations of the Line Printer will be dis- 
cussed. The routines in the SPOOLER listing (Figure 5-1) are broken 
up into logic boxes and referenced by line numbers . 


5.5.1 SPOOLER Startup 

Spooling under an operating system on the PDP-15 is accomplished as 
follows. The SPOOLER task should be added to PIREX, by reading 
it into local memory and connecting it at run time via SPOOL 
(SP0L15) . As supplied by DEC, the SPOOLER is a separate binary 
program from PIREX. A special PDP-15 program referred to as 
the system/SPOOLER interface (SP0L15) is responsible for loading 
the SPOOLER into PDP-11 local memory and then issuing requests 
to PIREX to connect the SPOOLER and then begin its operation. 


Subsequently when PIREX schedules the SPOOLER task to run, the "BEGIN" 
request is processed. On gaining control, the 'request dispatcher' 
transfers control to the 'BEGIN' routine. The first time the SPOOLER 
processes a directive it also executes a once only section of code, 
which builds a central address table. This table contains addresses 
of frequently addressed locations in the SPOOLER and is necessary 
since the SPOOLER is coded in Position Independent Code (PIC) and 
thus can be loaded anywhere in the PDP-11 memory. SPOOLER is coded 
in PIC to permit additional tasks to be added to PIREX without neces- 
sitating SPOOLER changes. The BEGIN routine performs the following; 
general startup operations and the specific line printer startup 
operations (Refer to Figure 5-1) : 

GENERAL OPERATIONS - BEGIN DIRECTIVE: 

Set up the SOFTWARE page 7, lines 9-12 

INTERRUPT trap address in 
the PIREX SENDll table 

Save the SPOOLER start address line 13 
in the "disconnect SPOOLER" 

TCB 

Initialize the FINDBK routine lines 15, 38 
switches and pointers. 
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SP0L11.12S MACR0«11 V3AB00 

ASSEMBLY parameters 


Page a 


12 


1 CARD READER! AND 

13 

B0000B 

OEVSPPI0 

14 

000000 

DEVCNT-0 

IS 


.IFDP SLP 

16 

000001 

DEVCNTbDEVCNT*! 

17 

040000 

devspp»devspp1slp 

IB 


.ENDC 


respectively 


1 

Figure 5-1 

UNICHANNEL Spooler Components 


1 

This listing is of the V3A000 version of SPOLll . 
contains several differences. Refer to the DOS-1 
Document for a description of the significant new 


V3B000 SPOLll 
V3B000 Update 
features . 
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NOTE 


M4C90-il V34E23 ?4CF « 
3 = C:l£« 0:ii»iTCH£K ■ 


The A assembly errors contained 
in this figure are warning 
messages, and, do not indicate 
actual errors in this example . 





.SBTTl 

JPOOLEP OISPaTCHER 

3 

Z J 2 2 L’ 3 3 

£32282 

S?BEG», 

,3tO:K 

8.»eAESTi<*S 


4 2z:r.-iz 

48?<42 


. 142-0 

DUM 


5 

£87338 

OUMJ 

, 4 C K j 

3 


8 220M4 

483838 


.4090 

e 


7 eC0145 

21S732 

177772 

SPSTI 

HQV 

SPST-2.R0 

tGCT TCP ADDRESS IN R0 

JPAKE ll'S REQ. TO PREVENT GETTING KILLED 

8 830153 

412767 

183880 

177762 


HOV 

«100880,SPST>4 


S 





ITHIS IS TO PREVENT STACK BLOW UP THRO* 

18 





)CTL 'C»S prom PDP-15 

11 88188 

B13767 

441866 

442112 


HQV 

**CTuCT,s0CT8V 

ISAVE current CTL 'C COUNT FOR LATER CLEANUP 

;2 88166 

245757 

247272 


T3T 

oncepl 

;HAS THIS CODE ALREADY BEEN DONE? 

13 eei72 

28 i?26 


B^i£ 

201 

)YE3 •* DON'T 00 IT AGAIN 

14 83174 

412737 

46?;i80 


MOV 

«DEV8PP,#»0EVSPL 

(SET UP device spooled WORD 


u3l264 





15 88222 



AQR 

3?3E0,91 

tINITALIZE addresses CPIC CODE) 

88222 

418781 


MOV 

PC, SI 


38224 

452721 

177574 


AOO 

pS?3ES-.,RJ 


IS 83218 



*oa 

a0ST8L»R2 


83213 

418732 


MOV 

PC,R2 


28212 

4r.37J2 

48iV5S 


aDC 

AAOfcTBL-'. ,R2 


1? 33215 

412733 

438;>37 


MOV 

K-ACTCMT.R3 


iS 88222 

253122 

13S1 

iOO 

Rl , CR23* 

•calculate addresses 

19 38224 

4c5383 


CEO 

s3 


33 83225 

431375 


SN£ 

101 

ILOOP UNTIL ALL finished 

21 33238 

013782 

485771 


MOV 

Si.'PLA0,92 

;SET UP BUFFERS 

?2 33234 

45£122 

i3J: 

AGO 

Rl , CR25* 

|SET UP POINTERS GOINS BACKWARDS THRU 0 

23 332c3 

u 5 j 1 1 a 


A jO 

Rl ,*R2 


2 4 3;’ 2 43 

414232 


MOV 

- (R21 ,R2 


23 32242 

428257 


CMP 

SS,0UPL*O 

JHEAD OP BUFFER? 


285762 





26 08246 

27 32253 

441372 

2811 

8N£ 

15J 

jNO — try again 

26 32233 

122758 
483287 
4 8 3 8 2 


CMPS 

*5PcaOA200,TCODE 

CRB) JSPOOLER REQUEST? 

2c23i 

401432 


BtO 

213 


33 38253 

412781 


MOV 

PC,R1 


31 88262 

452731 

£43126 


AOO 

ilOlSPl»,.Rl 

> GET DEVICE DISPATCH TABLE IN Rl 

32 32266 

335882 


CLB 

92 


0 3 

34 22272 

122753 
4 4 8 8 3 4 
843832 

? 

CMP3 

»lPCOO,TeOOECR0) 

>LP REQUEST? 

33 22275 

£81431 


BcQ 

22* 


27 23282 

433722 

! 

TST 

{R2)* 


0 - 0 V _ 

1 2 4 3 5 3 

334433 

4£3882 


CMPS 

mCDCOO.TcOOECRB) 

|NO, CD REQUEST? 

35 28313 
48 

481424 

1 

BEQ 

22* 


4} 22212 

485722 


TST 

(R2J* 


42 28314 

122768 

428386 

4-a8flJ2 


CMPB 

#PUCOO,TcODE(R0j 

>N0, PL request? 

43 C8322 

£ 8 ; 4 1 7 


&EQ 

22* 



Figure 5-1 

UNICHANNEL Spooler Components (Cont.) 
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a^OLti.ias H«CRO-ii vsAaae ?age e* 

SPOOLED 3iS?iTCH£» 
i* > 

45 ;UN;>EC0SNISED TASA REQUEST REPORT. 

46 I 


47 

32324 


errori 




48 

33324 

213721 


MOV 

••0EV8T,Sl 




221 ?32 





49 

33333 

2i272l 


ADO 

«SRCnS*S*244,Rl 




242335 





X ^ 

33334 

112711 


M0V6 

*IC?877, fRl3 




322377 





3*. 

33343 



CALL 

OEOREQ 



33343 

324787 


JSf> 

PC.ceCREO 




222732 





32 



1 




33 

33344 

213721 

Zist 

MOV 

pC.Rl 

JSPCOLER REQUEST IGET SPOOLER DISPTACH 

54 

33345 

4S27?l 


ACO 

«0iaR3*.,Rl 

ITASLE in «3 



^32722 





33 

33352 

115222 


M0V8 

PCC0E(R2l ,R2 

;GET FUN, CODE 



333226 





59 

23336 

342722 


SIC 

•177742, R2 




177742 





57 

22362 

262122 

22S: 

ADO 

Rl,R2 

|AOO FUN. CODE TO Rl 

SS 

22364 

451221 


ADD 

fP25 .R1 

;8UIL0 D1SP4TCH JUMP X 

39 

68 

22366 

232111 


JMP 

{«n 

IBRANCH TO appropriate ROUTINE 

61 



ispooles 

! directive dispatch table 

62 

22373 

232326 

0ISP3I 

begin 

-OISP0 

IBECINI COOEsB 

33 

22372 

177734 


error 

•CISP8 

JERRORI COOE-2 

34 

22374 

332535 


END 

-0I5P2 

lENOt CCC£«4 

63 

22376 

177734 


error 

-OlSPfl 

JERRORI CCOEbB 

66 

32432 

177734 


ERROR 

-QISP0 

iCRRORt COOE«10 

67 

22422 

177734 


ERROR 

-O13P0 

lERRORI C00£*12 

38 

22424 

177734 


ERROR 

>OISP0 

{ERRORI COOE-14 

69 

22433 

£33718 


COSOPR 

-0ISP8 

{CONTINUE halted OPERATION 1 COOCpIB 

73 



» 




7i 



iCEvICE 

REQUEST 

-dispatch table 


72 

22412 

324384 

0I3P1I 

LPCALL 

-OlSPl 

lUPt LINE PRINTER 


Figure 5-1 

UNICHANNEL Spooler Components (Cont.) 
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SP0l.ll.i29 MACRO-il V3AeC90 PA6E 7 

BEGIN DIRECTIVE 


1 .SBTTL begin OIRECTIVE 

2 I 

3 ITHIS ROUTINE STaRTB ALU SPOOLING OPERATIONS. SWITCHES, CONTROL REGISTERS 

4 lETC, ARE SET . THE BUPPeR POOL. TCB POINTERS, BITMAP, TABLE ETC, ARE 

8 ISET UPIBITMAP t TABLE ARE SAVED ON DISKfPOR BACKUP OPERATIONS), EACH 

6 IINDIVIDUAL spooled task IS THEN INITIALIZED & STARTED UP IP NECESSARY 

7 I 

B I 


0 0BB416 

010701 

BEGIN! 

MOV 

pC.ri 

fGET ADDRESS OP OEVINT IN Rl 

10 

00420 

062701 

002710 


ADO 

roevint-*.,ri 


11 

00424 

013702 

801802 


MOV 

*P8EN011,R2 


12 

80430 

010162 

000016 


MOV 

Rl.SPCOO*2(R2) 

!$ET SENDll ADDRESS IN PIREX 

13 

00434 

010087 


MOV 

1<»(R0) .tcbdsa+tcbois 



000014 

012240 





14 



1 initialize 

ALL SWITCHES 


IS 

00442 

812767 

000081 

081742 


MOV 

oi.cbtptr 


10 



|SET 

control 

RE60. 


17 

08488 

010701 


MOV 

PC.Rl 

IGET ADO. OP DUM IN Rl 

10 

08482 

062701 

177470 


ADD 

ROUM-.,Ri 


10 

00488 



PUSH 

Rl 

fSAVE ON stack 


00488 

010146 


MOV 

Rl.-fSP) 


20 

00460 



POP 

-CRD 

f SET SPOOLER CONTROL REG. 11 


00400 

012641 


MOV 

(0P)*,-(R1) 


21 



isetup 

BUPPER 

POOL 


22 



unitialize RK Tc0 pointers 


23 

00462 

016701 

010116 


MOV 

RKCAO.Rl 

fGET RKTCBP add. IN Rl 

24 

00466 

010702 


MOV 

PC.R2 

IGET TCBR01 add. IN R2 

28 

06470 

602702 

011474 


ADD 

«tcbst-.;r2 


20 

864T4 

012703 

000014 


MOV 

rtcbct.rs 

ISETUP TCBCT TCB»8 

if 

88060 

010221 

201 

MOV 

R2, (Rl)p 

»9ET TCBRKl POINTER 

20 

00882 

002702 

200038 


ADO 

«30,R2 

(BUMP R2 TO TCBRK2 

20 

00800 

008303 


DEC 

R3 


38 

00810 

801373 


BNE 

20 


31 



IINITIALIZE bitmap 


•32 

00812 



PUSH 

NBK(R0) 

rGET SIZE OP SPOOLER AREA NUMBER 


00812 

010046 

000012 


MOV 

nBK(R0) ,.^(SP) 


33 

00810 

006216 


ASR 

(0P) 

ICOMPUTE SIZE OP bit MAP 

34 

00820 

806216 


A8R 

(SP) 

!SIZE*NUMBK/B*2 

SB 

00822 

000210 


ASR 

(0P) 


30 

00924 

042716 

000001 


BIC 

#1, tSP) 

fGET EVEN number 

sr 

00830 

162716 

000002 


SUB 

00. (SP) 


30 

00934 

010767 

010094 

001692 


MOV 

btmpad.cmdptr 

PRESET CWOPTR 

39 

00942 

010701 

018046 


MOV 

BTMPAD.RI 

f(BR9112. TEMP PIX) 

40 

00940 

002601 


ADD 

(0P)*,R1 

lADD OPPSET TO END 

41 

00890 

010107 

011130 


MOV 

Rl.BTMPEo 

ISET UP BTMPED 

42 

00994 

016701 

010036 

.• 

MOV 

STBKNA.Rf 

|GET ADDRESS OP STBKNM.4 IS Rl 

43 

00960 

016021 

000010 


MOV 

SBN(R0),'{R1)* 

ISET starting lock R 

44 

00864 

016021 

000012 


MOV 

N0K(R0),eRl)« 

iSET number op blocks 


Figure 5-1 
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IMLll.ia®’ MACiO-ll VS*iii ^*SE T* 

IC61N DIRECTIVE 

45 80670 010700 MOV «BTMR8Z|R0 |6ET BIT MAP SIZE IN R0 

08BSB0 

46 00674 018103 MOV Rl,R3 

47 00676 086803 411 CLR (B3)« 

40 00600 006380 DEC R0 

48 00600 001378 BNE 4* 

80 unitialize TA0LE 

81 00604 ^0'' T*BLAO,Ri |GET ADDRESS Op TABLE IN Rl,R3,Rl 

60 00610 010103 MOV RlfRS 

63 00610 010700 MOV mTABL 8Z«R2 fCET TABLE SIZE IN R2 

000844 

84 0O6ia 810703 3SI MOV M-liIRS); 

177777 

86 00620 008300 DEC r2 

86 00604 001374 BNE 36 

57 00626 010711 MOV #LP1,(R15 |8ET LPl(OEO) IN TABLE 

140061 

88 00630 010761 MOV »COl,CDTEOr(Rl) |8ET CDl (DEO) IN TABLE 

830461 
000014 . 

80 00640 010761 MOV MtTl.PLTpOPIRl) »8ET PLl CDED3 IN TABLE 

140461 
000030 

60 ISAVE BITMAP 4 TaBLE f 

61 08646 106760 TSTB 7(R01 fPLAIN BEGIN OR BEGIN *PTER RESTORE 

000A07 

60 00680 001007 BNE l6 

63 00664 PUSH rMRITEP ISAVE DISK FUNC. 

00884 010746 MOV «NRITEPi«(SP1 

000000 

64 00660 CALL S4REBM fSAVE BIT MAP 

08660 804767 J6R PC.SAREBm 

000600 

66 00664 CALL SARETB fSAVE TABLE 

00664 004767 J6R PC.SARETfl 

000834 

66 00670 006706 TST (6PJ* iCLEAN STACK 

97 fSET spooler SWITCHES 

00 00670 008037 iSl CL* pWSPOLSW iRESET SPOOLER SWITCHES 

001046 

69 08676 060737 BIS W8EG8W,««SP0LSW |6ET SPOOLER ENABLED AND RUNNING 

170000 
081046 

79 I 

71 MLL SPOOLED TASKS HAVE TO BE INITIALISED. OPERATIONS LIKE SETTING 

72 ft resetting switches, SETTING UP POINTERS, BUFFERS, STARTING UP 

PS ITASK etc, have to be done as INDICATED FOR EACH TASK 

74 I 


•J4 ,JfOf SLR 

88 unitialize LP SpOOLER/DeSPOOLER TASK 


96 

01010 

188067 

003347 

CLRB 

LPONCE 

97 

01014 

010767 

001800 

003340 

MOV 

«l000,LPONCEal 

98 

01«00 

013700 

001010 

MOV 

4WL1STH0,R2 

89 

81006 

060700 

000020 

ADO 

«LPC0D*4.R2 

100 

1030 


CALL 

enpto 

101 

1030 

004767 

080076 

JSR 

PC.EMPTD 

100 

1036 

011167 

010670 

MOV 

pRl,NBN*tABLE 

103 

1040 

010167 

004066 

MOV 

RlfLPCBCp 

184 

1046 000101 

CMP 

(Pi)*, CRl)* 

186 

1060 

010187 

004060 

MOV 

Rl.LPWOCP 

106 

107 

1064 

106067 

004043 

clrb 

IkDC 

lPbms 


fGET ADDRESS OF LlSTHD IN R? 
ICLEAR LP DEQUEI TASK C00E«4 

fSET NBNaCBN FOR START UP 
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SPOLll.iaS MACHO -11 VSABBB page 7 * 
BEGIN directive 


tai 



|ALL done deque 

next bequest 



122 

113B 



CALL 

deqbeq 



113B 

0B47O7 

08B242 


JOB 

PC.DEQBEa 




123 



» 





124 



lEMETY 

TASK DEQUE 



12S 

1134 


EMPTOI 





120 

1134 



,INH 


lINHIBIT 

INTERRUPTS 

1134 



PUSH 

pBPO 




1134 

013746 

177776 


MOV 

#BP8,-(Sp) 




114B 

002737 

000340 

177776 


BIO 

<|LVL7,P«PS 



127 

1146 

012701 


MOV 

l»£MPTT,Ri 

lEMPTT TASKS DEQUE 


001826 



PC,P(BD; 



120 

1102 

004731 


JOB 



129 

1104 



.ENA 


fENABLE 

INTERRUPTS 

1104 



POP 

PBP6 




1104 

012637 

177776 


MOV 

f8P)*,E#pS 



138 

1108 



CALL 

PlNDBK 




HOB 

004767 

000004 


JOB 

pc.etnobk 



131 

1164 

010146 


MOV 

Bl.-(SP) 



132 

1166 



CALL 

getbuf 



1166 

004767 

801020 


JOB 

PC.GETBUP 




133 

1172 



POP 

(Bl) 




1172 

012611 


MOV 

(OB)*,(B{) 



134 

1174 

000207 


retubn 




130 




•SBTTL 

end 
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SPOLn.129 NACRO-ll V3AMf PAGE 9 

END 

1 I 

a »THIi NOUTINE smut* down all spooling operations, the timer request 

3 IIS CANCELLEOf SOPTNARE INTERRUPTS ARE IGNORED ANO THE SPOLll TASK 

4 Its DISCONNECTED PROM RIREX 

5 I 

« I 


7 001176 

013701 

001092 

ENDl 

MOV 

RPCLTABL.RI 

»NULL SPOOLER TIMER REQUEST 

* 001202 

009067 

176734 


CLP 

9P8T-4 

fCNABLE STOP ALL I/O 

9 001206 

009037 

001064 


CLP 

••OEVSPL 

fCLEAR OEVICED SPOOLED SWITCH 

16 01218 

009061 

000034 


CLP 

SPC00*4(r1) 


11 01216 

092737 

000340 

177776 


BIS 

RtVL7,««p9 

flNMlBIT INT. 

12 01824 

013701 

001060 


MOV 

••TEVAOO.Pl 

iFiNo THE Entry address 

13 



• IPOP 

SLR 


14 01230 

016102 

000010 


MOV 

LRCQQ*2(RU.R2 

IPINO task address 

IS 01234 



CALL 

stptsr 

iSTOR THE task 

01234 

004767 

000070 


J9R 

PC,STRT8k 


19 



^DC 



29 01260 

009037 

001046 


CLP 

••SROLSH 

(RESET spooler SH 

26 01264 

012701 

001036 


MOV 

rRturn.Ri 

(GET RETURN INST. ADD IN R1 

27 01270 

013702 

001002 


MOV 

«*SEND11,P2 


29 01274 

011162 

006016 


MOV 

{Pl).SPC00*2(R2) 

(SHUT QFP SEND 11 

89 01300 

012701 

000001 


MOV 

Ri.Rl 

(TELL SR0L19 DONE 

30 01304 

012702 

001024 


MOV 

RSen019,R2 


31 01310 

004738 


JSR 

PC,R(R8); 


32 01312 



AOP 

TCaOIS.RB 

(SET PA 

01312 

010709 


NOV 

PC,R5 


01314 

062709 

011394 


ADD 

•TcB0!S*’.«R9 


33 01320 



IREO 


(SEND REQUEST 

01320 

012704 

100000 


MOV 

RlBBBBP.RA 


01324 

000004 


lOT 



01326 

001 


,BTTE 

IfO 


01327 

000 





3,4 


I 




39 01330 

009762 

177774 

STPTSKi 

T9T 

-4(R8J iPOP-11 

RE0UEST9 

jrfI35n00010 


BPL 

1» 

(NO — IGNORE 

37 01336 

014203 


MOV 

-(R21.R3 

(YES — TEST FOR SPOLLER REQUESTT 

38 01340 

122713 

000007 


CNPB 

*«PC00,PR3 


39 01344 

001004 


BNE 

1> 


40 01346 

009012 


CLP 

•P2 


41 01390 

009042 


CLP 

>(R2) iSTOR TASK (CLEAR TCB ADR 

42 01392 

009072 

177778 


CLP 

••2(R21 

(STOP DEVICE FROM INTERRUPTING 

43 01396 

000207 

19I 

return 




44 » 

49 I 
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spsu:.! 

utility 

1 

2 

3 

4 

5 

6 
7 
e 

9 


2S v3i000 Pace 

PCUTIKES 

-SaTTL utility routines 

•IPOF SCO 

; 

»SET Ul* TCB TO READ A CARD PROM CO 


hCV 

CALL 


Z01S30 

eZ!S32 


10 ZlSSS 

11 
12 
13 

M 

13 

16 

IT 

18 01343 

19 01342 

23 31346 

21 

22 

23 

24 

25 
28 
2T 
28 
29 
33 

31 31550 

32 01SS4 

33 315Se 

34 01952 
315S2 

01563 

01570 

913T1 

35 01372 
35 

37 

38 

39 
42 

41 

42 

43 01974 

44 01576 


ICALLINC 5EQUENCEJ 
J 
; 

010701 STUPCTi HOV pc, Pi 

^®2T0l AOO pTCBCO-.-RI 

007320 

000404 ap sTucom 

• SNDC 
.IFDF $LP 
I 

/SET UP TC9 to write A LINE ON LP 
/CALLING SEQUENCE* MOV BUFAD,R9 

j CALL STUPLT 

010701 STUPLTi MOV PC, PI 


bufao,rs 

STUPCT 

/GET address op TCBCO IN R 1 
/ENTER COMHON HOUTNINE 


032731 

037272 

000423 


AOO 


/ 


BR 

,ENOC 
.IFOF SPl 


«TCfiLP-,.RI 

STUCOM 


/GET ADDRESS OP TCBLP IN Rt S RS 


/SET UP TCB TO WRITE A LINE ON PL 


/CALLING SEQUENCE* 
/ 

/ 

STUPPTj MOV 
AOO 

• ENOC 

010581 STUCONimOV 
000010 


HOV 
CALL 

pC|R1 

«Tcbpl-..R1 

R5.10CR1) 


BUFAD.RS 

STUPPT 

/GET ADDRESS OP TC 8 PL IN »1 ( RS 


010105 

039051 

000004 

312704 

100003 

£40004 

001 

800 

000207 


MOV 

clr 

IREQ 

MOV 

lOT 

,8TT£ 

RETURN 


Rl ,PB 
4(RH 


« 100000 ,R 4 


1*0 


/RESET REV 
/SEND 


/ 


ADR -.CSN.RS 

AOR TCB 0 k-,R 2 

CALL 8 TUP 0 T 


010233 STUPOTj HQV 
022222 CMP 


R2,R5 

C«23*, (R23* 


/SAVE TCBP IN RS 
/BUMP TO REV 
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s-^ou'.uiiS f<*c«o-s'. vstcao pap! t7* 
»IND A rScE B!.nc< C-( OISK 


77 

76 

73 

62 

B! 

:2 

S 3 

34 

89 

89 


the 70 '..|. 0 HIHG piece op code checks to see ip the current buock to be 
•LLCCaTEO to The current spooling task equals The CBN OP this 
DCSPOO' :nO TAS.'-;IF this is true, then the ispooler is declared flooded' 

THIS happens DNlT on a wrap AROUND (ENT IRE SPOOLER AREA IS TREATED AS A 
ring BUPPeR)HHEN SPOOLING OPERATIONS ARE MAY AHEAD OF DESPOOLING OPERATIONS 


►NOTEI 


AS NEM tasks are added new code has to be AOOEDa 
8 IHIL*R to The code for existing tasks********** 


87 

86 22116 

116 ?a 2 

<j 3 !!e 22 

1 

HOVB 

2 tR 3 ) ,R 2 


C3 22122 

122722 

242204 


cmpb 

«LPCC 0 ,R 2 

92 22126 

231411 


BEO 

21 s 

Si 22133 

122722 

«jJ 22:;9 


CHP 8 

«C 0 C 00 * 2 fl 8 |R 2 

92 22134 

34 <411 


BED 

22 s 

S 3 32136 

122722 

4422?5 


CHP 8 

■PLCOD.Ra 

*4 22142 

42 i:l 2 


BNE 

26 s 

SS Z 2144 

4 le 732 

339236 


hOV 

T*S?LC,R2 

38 321 S 3 

3424 P 3 


BR 

36 s 

87 321 S 2 

U 18732 

249229 

21 SI 

HOV 

TAflPCB.RS 

98 22136 

99 

232432 

. 

BR 

301 

122 2113 

3 '. 67 32 
U 49224 

22 S: 

MOV 

TABCDC.R 2 

131 2184 
IS 2 2164 

423112 

34 St 

CMP 

Rl> (R 21 

133 2 I&S 

134 2178 

841431 

3611 

BEC 

ss 

ITS 

133 2173 

343237 

1 

return 


133 


{SCRRY 

NO BLOCK 

PREETT SsTUP 

133 2172 


931 

POP 

R 2 

3172 

912632 


HOV 

( 8 P)*iR 2 

Its 2174 



PUSH 

*»PS 

2174 

313746 

177778 


MOV 

P»PS,-(Sp 3 

111 2222 



PUSH 

R 2 

2 1 C 2 

313246 


MOV 

R 2 ,-(SP 3 

112 2222 



PUSH , 

R 0 

2322 

3 le 346 


MCV 

H 0 ,*(SP 3 

113 22 P 4 



PUSH 

Rl 

3224 

913146 


HOV 

Rl.-CSP) 

114 2236 



PUSH 

R 2 

2233 

418246 


HQV 

R 2 f-( 3 P) 

119 2213 



PUSH 

RS 


)GET current task CODE 
ILPT 

INO. COT 
INO, PUT 

»yes 


{RETURN WITH BLOCK N ON STACK 


{GET RETURN ADDRESS 
{SET UP STACK FOR RESTART 


{SAVE PC 
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SPOUn.125 MACRO-U VSA000 PAGE ?2 

TASK software interrupt DISPATCHER 

2 »SENDI5 IN PIREX TRANSFERS CONTROL TO DEVINT BY A "CALL PSEnDII (-C00*2) " 

3 IIF requested in TCB. ThIS IS DONE BY A CODE OF '3' IN BYTE-3 

4 lOF TCB. SPOOLER SETS THE ADDRESS OF DEVINT IN SENDll WHEN STARTED 

5 I 

e > 

8 003240 022760 DEVINTi CHP <*1,4(R0) »G00D COHPLETION?? 


000004 

9 003246 001022 

10 03250 122760 

000202 

000002 

11 03256 001417 

12 03260 122760 

000204 

000002 

13 03266 001406 

14 03270 122760 

000208 

000002 

15 03276 001404 

16 03300 000167 

002072 


17 

18 

19 03304 


20 

21 03310 


22 

23 

24 

29 03314 

26 03314 

27 

28 


I 

I 

000167 2SI 
000646 

I 

000167 3SI 
002126 

f 

I 

I 

SSI 

000207 


I 


BNE 

SS IBRANCH 

IF NO 

CMPB 

#RKCOO*200,TCODECR03 

;RK REQ.' 

BEQ 

RFINT 


CMPB 

RLPCOD*200,TCODE£R0) 

JLP RED? 

BEQ 

2> 


CMPB 

«CDCOD*200»TCOOECR0) 

ICD REQ? 

BEQ 

3S 


JMP 

PLINT 



JMP L^INT 

JMP COINT 


return 

.SBTTL RR interrupt SERVICE 
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spaLn.123 MACRO-n V3A0CB Race 23 ; 
RK INTERRUPT SERVICE 


41 




.IFDR 

SLP 


42 



1 




43 



IREAD 

REQUEST 

MAS made For lp. 


44 

63842 

816703 

005052 

10SI 

MOV 

TABLAO.R 3 

iCBn«lfb? 

4S 

03546 

026063 

000006 

000012 


CMP 

6(R01,LFr(R3J 


46 

83884 

001083 


BNE 

13S 


47 

03556 

012763 

177777 

000012 


MOV 

••1,LFB(R3] 

»YES, SET LFB»-l 

46 

63564 


13S| 




46 

83564 

105067 


clpb 

lPBMO 


86 

63870 

00057 4 
108367 


DECB 

LPBUFS 

idecrehent lpbufs 



008371 





51 

63574 

122767 

008001 

000361 


CHPB 

Ml.LPOMCE 

ILPONCE-IT 

82 

03602 

001133 


BNE 

DONE 

IBRANCH IF NO 

83 

03664 

016702 

005044 


MOV 

LPCZAD.R2 

»VES. START UP LP 

34 

83618 


llSl 

CALL 

12S 



03610 

004707 

000032 


J8R 

PC.12S 


53 

03614 

103267 

000343 


INCB 

lponce 

|SET ONCE Only complete sw. 

56 

03620 

032737 

040000 

001040 


BIT 

«40Bafl,«|(SPOLSH 

fSHUT OOMN? 

87 

03626 

001521 


BEO 

DONE 


38 

03630 

011208 


MOV 

PR2.R8 

ISAVE BUFAO ON STACK 

89 

03632 



CALL 

stuplt 

|NO SET LP TCB 


03632 

084707 

178762 


JSR 

pc.stuplt 


68 

03636 

082737 

000001 

001046 


BIS 

n1,P«SPOlSM 

DONE 

»8ET LP busy SW 

61 

03644 

000312 


BR 

ICXIT 

62 




.ENOC 



63 



1 




64 



ISECTXONS 12 

USEO FOR LP AMO PL 


68 



1 




66 



t 




67 

03646 

016063 

000000 

080002 

12SI 

MOV 

6(RBl.eBN(R3) 

ISET CBN IN TABLE 

66 

03654 



PUSH 

l2(R0) 

fSAVE FA ON stack 


03684 

010840 

000812 


NOV 

12(R0).-(SP) 


69 

03660 

011622 


MOV 

•Sp,{R2j; 

ISET LPCBIP 

76 

03662 

012712 

000804 


NOV 

»4, (R0T 

|SET LPMDIP 

71 

03666 

061612 


ADD 

P»P,fR2J 

ICOMPUTE LPMOIP 

72 

03670 

062710 

000776 


AOD 

RTmoI, (S p) 

vC3r 

fBUHP TO LINK A NBN 

7 3 

S5S7 4 

SI 38 S 3 

000000 


nOV 

|3£T NBN IN TABLE 


74 

03700 

012703 

000004 

000004 


MOV 

M»WfR3) 

ISET CRP IN TABLE 


73 

03706 

000287 


RETURN 
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8P0L11.125 MACRO-11 V3A000 PAGE ?4 

RK INTERRUPT SERVICE 


IS 



.lEOF 

SLP 


19 


»WRITE 

REQUEST 

made for lP 


20 

04140 

016701 41S> 

MOV 

lPbmsa.ri 

IRESET LPBMSA 



004S12 




21 

04144 

105011 

CUPS 

(Ri) 


22 

04146 

016705 

MOV 

TABLA0.R5 




004446 




23 

04152 

016065 

MOV 

6CR05 ,lSBCR5) 

>SET LS0 IN table 



000006 




24 

04160 

00001 0 
016703 

MOV 

lP0NA0,R3 

jGET ADD OF LPBMS IN R3 

2S 

04164 

004422 

105713 

TSTB 

(R3J 

jFIRST TIME through?? 

26 

04166 

001341 

BNE 

oOne 


27 

04170 

105223 

INCB 

(R3J* 

;YES. SET SW, 

28 

04172 

103213 

INC8 

(R3) 

»SET LP8M0 

29 

04174 


CALL 

GETBUF 

jGET A buffer 


04174 

004767 

JSR 

pc.getbuf 




176512 




30 

04200 


PUSH 

rlpcod 

ISETUP FOR GETPUT SAVE DEV CODE 


04200 

012746 

MOV 

#LPCf)D,-fSP) 




000004 




31 



,ENDC 



32 

04204 

44S| 

PUSH 

rReaof 

>SAVE DISK FUN. 


04204 

012746 

MOV 

#R£AnF.-(SP5 




000004 




33 

04210 


PUSH 

Rl 

jSAVE BUFFER ADO 


04210 

010146 

MOV 

Rl,-(3P) 


34 

04212 


PUSH 

nBN(R55 

;SAVE BLOCK R 


04212 

016546 

MOV 

nBn(R51 ,-{SP5 




000006 




33 

04216 


CALL 

GETRKT 

|GET A RK TC8 


04216 

004767 

JSR 

PCjGETRKT 




176720 




36 

04222 


CALL 

getput 

>GET block 


04222 

004767 

JSR 

pc.getput 




170420 




37 

04226 

062706 

ADD 

R10|SP 

»CLEAN stack 



000010 




36 

04232 

000717 

BR 

DONE 

fCHECK REV & EXIT 
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8P0L11.12S 
LP interrupt 
1 


MACRO-il V3A000 

service 

I 


Rage as 


3 

4 


/DRIVER 

/ 

Task in pirex 

5 


.IFDF 

SLP 

6 004362 

000 

LPDuMIi 

.BYTE 

0 

7 004363 

000 

LPONCEl 

.BYTE 

0 

8 004364 

000 

LPBmDI 

.BYTE 

0 

9 004365 

000 

LPBUFSi 

.BYTE 

0 

10 04366 

000000 

LPCBIPI 

0 


11 04370 

000000 

LRMDIPl 

0 


12 04372 

13 

14 

15 

16 

000000 

LPOBIRi 

/ 

/ 

0 

.ENDC 

.ifndf 

slp 


lUNUSED 
lONCE only SW 
IBLOCK IN MOTION SW 
lEHPTT BUFFER COUNT 
ICURRENT BUFFER POINTER 
ICURRENT WORD POINTER 
»NEXT BUFFER POINTER 


IF 

IS 

l» 

20 

21 

22 


LPINTi 


MOV 

MOVB 

return 

.ENOC 

.IFOF 


•ROEVST.rJ 

RI0R877,lPSPER(R1) 


>report task not supported 


SLR 


23 

04374 

016701 

004262 

LPiNTi 

MOV 

TABCRT.Ri 

24 

04400 

052737 

000240 

177776 


BIS 

«LVLS,#«PS 

25 

04406 

022711 

177777 


CMP 

R-1, (Rl) 

26 

04412 

001014 


bne 

IS 

2F 

26 

04414 

016703 

004166 

list 

MOV 

LPONAD.Rj 

04420 

108023 


CLRB 

tR3)* 

29 

04422 

105023 


CLRB 

CR3J* 

30 

04424 

105223 


INCB 


31 

04426 

011303 


MOV 

(R3) ,R3 

32 

04430 



CALL 

GlVBUF 


04430 

004767 

178360 


JSR 

PC.GIVBUF 

33 

04434 

042737 

000001 

001046 

2|t 

BIC 

RlfPRSPOLSW 

34 

04442 

000207 

soil 

return 


35 

04444 

005711 

ISl 

TST 

(Pi) 

36 

04446 

001040 


BNE 

3» 

3F 

04450 

016704 

004200 

l5Si 

MOV 

LPCPAD.R4 

38 

04454 

011403 


MOV 

(R4I ,R3 

39 

04456 



CALL 

gxvbuf 


04456 

004767 


JSR 

PC.GTVBUf 


UNHIBIT DISK interrupts 


/ANY MORE TO DO? 


»SET CtLPCBIP) IN R3 


40 04462 

41 04464 

42 04470 

43 04472 
04472 

44 04476 

45 04500 

46 04500 


105244 

105764 

177777 

001403 

004767 

1F5222 

000772 


10St 


4SI 


016767 
005226 
005220 
47 04506 012767 
000004 
005214 
46 04514 010703 

49 04516 062703 

177654 

50 04522 

51 04524 


011304 
016467 
000776 
005200 
04532 016702 
004116 

53 04536 011322 

54 04540 011312 

55 04542 062712 

000004 


INCB 

TST8 

BED 

CALL 

J3R 

BR 

MOV 


MOV 


MOV 

ADD 

MOV 

MOV 


-CR45 
-1 CR43 

4S 

WAITBK 

RC.WAITBk 

10S 


TABLE*NBn,TABLE*CBN 


R<,TABLE*CRP 


/RESET SW,»S 
/BUMP TO LPBUFS 
/RELEASE BUFF. 

/GIVE BACK buffer 


»NO. SET LP idle SW 
/YES. BLOCK IN MOTION? 

/SK-124 YES. GET ADD OF LLPCPADBIP IK R2 
/RELEASE BUFFER 

/BLOCK READ IN? 


/SET CBNsNBn 


/SET CRP 


PC,R3 

#LP0BIP-.,R3 

(R3) .R4 
TMDl (R4) ,TABLE*NBN 


/GET LPOBIP ADD. IN R3 


/GET 


CCLPOBIP) IN R3 
/SET LP.NBN 


S BUMP TO TwdI 


52 


MOV 

MOV 

MOV 

ADD 


LPCPA0,R2 

(R35,(R23* 
C«3), (R23 
CR21 


/GET ADD. OF LLPCPADBIP In N2 


/SET LPCBIP 
/SET LPWOIP 


Figure 5-1 
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SPQLU.125 MACRO-1 

IP interrupt service 

56 04546 000412 

57 04550 016702 3SI 

004064 

58 04S54 017246 

000000 

59 04560 062716 

000005 

60 04564 042716 

177401 

61 04570 061611 

62 04572 062612 

63 04574 032737 5Si 

040000 

001046 

64 04602 001714 

65 04604 032757 


V3A000 

Page ?6+ 


BR 

5» 

rSEND 

MOV 

LPCWAD.RS 


MOV 

pCR25 ,-(SP) 


add 

*»5, C8P1 

jEVEN 

BIC 

*177401, fSP) 


ADO 

CSP3,(R15 

IBUMP 

ADD 

fSPI*. fRs) 

jBUMP 

BIT 

*40000. #«SP0LSH 

;SHUT 

BEQ 

2» 


BIT 

*l ,#*SP0 l5W 

JSHUT 


WRITE REQ IF NOT SHUT DOWN 
;GET ADO OF LPWDIP IN R2 


BYTE COUNT 


CRP 

LPWOIP 

DOWN? 


UP? 


001046 

66 04612 001710 

67 04614 032737 

010000 

001046 

68 04622 001704 

69 04624 005772 

000000 

70 04630 001024 

71 04632 026161 


BEQ 28 

BIT «10000,*«SPOLSU iSHUT DESPOOLER 


BEQ QS 

TST pCR25 jFIRST RECORD A .CLOSE? 

BNE 13S 

CMP -2(Rn.4(Rl) lANY MORE DATA? 



177776 

000004 




72 04640 

001003 


BNE 

141 

73 04642 



CALL 

l2l 

04642 

004767 

000240 


JSR 

PC, 12S 

74 04646 

000662 


BR 

111 

75 04650 

016704 

003732 

14SI 

MOV 

LP0NAD,R4 

76 04654 

062704 

000002 


ADD 

*2,R4 

77 04660 

122714 

000001 


CMPB 

*1, (R4) 

78 04664 

001271 


BNE 

iSl 

79 04666 

105764 

177777 


T8TB 

-1 CR4J 

60 04672 

001266 


BNE 

151 

81 04674 



CALL 

gS 

04674 

004767 

000146 


JSR 

PC,9S 

82 04700 

83 

000663 

1 

BR 

l5l 

84 

85 04702 

011205 

t 

13SI 

MOV 

pR2,R5 

86 04704 



CALL 

sTuplt 

04704 

004767 

174710 


JSR 

PC.STUPLT 

87 04710 

016701 

003746 


MOV 

TftBCRT.Rl 

88 04714 

011204 


MOV 

tP2),R4 

89 04716 

017246 

000000 


MOV 

p(R21,-tsP) 

90 04722 

062716 

000005 


ADO 

*5, (8P5 
*177401, (SP) 

91 04726 

042716 

177401 


BIC 


92 04732 

062604 


ADO 

(SP)*,R4 

93 04734 

010702 


MOV 

PC,R2 

94 04736 

062702 

177427 


add 

*LPBUF5-'. ,R2 

95 04742 

005714 


TST 

(R4) 

96 04744 

001417 


BEQ 

68 

97 04746 

022714 

177777 


CMP 

*-l, CR4) 

98 04752 

001414 


BEQ 

68 

99 04754 

122712 

000001 


CMPB 

*1, (R2) 

100 4760 

001230 


BNE 

501 

101 4762 

105742 


T3TB 

-CR25 

102 4764 

001226 


BNE 

501 

103 4766 

026101 

177776 

000004 


CMP 

-2CR1) ,4{R13 


;NO. SET table entries 

IRESET SWITCHES ft EXIT 
lSK-124 GET lPBUFS ADRRESS 

lSK-124 

lSK-124 ONE FREE BUFFER? 
lSK-124 

lSK-124 yes. block IN MOTION? 
fSK-124 

jSK-124 NO. get next BLOCK 

lSK-124 RELEASE BUFFER ft WAIT FOR BLOCK TO COME IIN 

INO. SAVE BUFF ADO ON STACK 
jSET UP TCB TO UNTI A LINE 

;CHECK FOR BUFFER EMPTY 
;GET BYTE COUNT 

JEVEN byte COUNT 

;BUHP R4 TO POINT TO PT WORD OF NEXT 
|NO. GET ADD OF LPBUFS IN R2 

JLAST RECORD? 

»LPBUF5«1 

>YES. BLOCK IN NEXT? 
iNO. MORE TO DOE CCBN«LSB3 


Figure 5-1 
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SPOin.129 MACRO-tl VSA 000 PAGE 96; 

LP interrupt service 


104 

4774 

001622 


6EQ 

508 


105 

4776 



CALL 

98 

»SK-124 get next block 


4776 

004767 

000044 


J3R 

PC,9S 


106 

107 

108 

5002 

000617 

; 

1 

BR 

508 

»SK-124 EXIT 

109 



IBUEFER EMPTY! 

test ip more block TO 00? 

****** A 






110 

5004 

026161 

177770 

000004 

6SI 

CMP 

•2CPn ,4(-Rn 

JMORE TO 00? CCBN»LSB) 


111 

5012 

001412 


BEO 

78 


112 

5014 

005011 


CLP 

tPl) 

jSK-124 SET CRP»0 

113 

5016 

122712 

000001 


CMPB 

Ml. CR2I 

;lpbufs«i? 

114 

5022 

001004 


BNE 

88 


115 

5024 

105742 


T3TB 

-(R2J 

IBLOCK IN transit? 

lie 

5026 

001002 


BNE 

88 

lSK-124 

117 

5030 



CALL 

98 

jSK-124 GET next BLOCK 


5030 

004767 


JSR 

pc.gs 



000012 





lie 

5034 

000167 

177402 

881 

JMP 

508 

jSK-125 

lie 



|N0 

MORE BLOCKS 

TO DO 








120 

5040 


781 

CALL 

128 

ISET table ENTRIES 


5040 

004767 

000042 


JSR 

PC, 12$ 


121 

5044 

000773 


BR 

88 


122 



1 




123 



» 




124 



(GET 

next block 



125 

5046 


981 

PUSH 

Rl 



5046 

010146 


MOV 

Rl,-(SP) 


128 

5050 



PUSH 

R2 



5050 

010246 


MOV 

R2,-(SP) 


127 

6052 



CALL 

getbup 

lYES. GET BUFFER S READ 


5052 

004787 

173634 


JSR 

PC.GETBUF 


lae 

5056 

010104 


MOV 

Rl,R4 

ISAVE BUFAD IN R4 

129 

5060 



POP 

R2 


5060 

012602 


MOV 

(SP)«,R2 


130 

5062 



POP 

Rl 



5062 

012601 


MOV 

(SPJ*,R1 


131 

5064 

010467 

177302 


MOV 

pe.LPOBlP 

fSET LPOBIP 

132 

5070 

105212 


INCB 

(P2) 

»SET LPBMS SW 

133 

5072 

012703 

000004 


MOV 

MUPCOD.RS 

IGET DEV, CODE II 

134 

5076 

010102 


MOV 

R1.R2 

»CET LP.CRP ADO. IN R3 

135 

5100 



CALL 

getblk 

IGET BLOCK FROM DISK 


5100 

004767 

003200 


JSR 

PC.GETBLK 


136 

5104 

000207 


return 


lSK-124 

137 



f 










138 

5106 

012711 

177777 

1281 

MOV 

M-l.PRl 

ISET CRP--1 

139 

5112 

012761 


MOV 

••i.etRii 

ISET LP8»-1 



U7777 







000006 





140 

5120 

000207 


return 



141 



; 




142 




.ENDC 



143 




.SBTTL 

LP call service 
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SPOLtl.125 macro-11 V3A000 PAGF 27 

LP CALL SKRVICE 

1 » 

2 ITHIS routine services CaLLS TO OUTPUT DATA ONTO THE LP. IT SPOOLS THE 

3 IDATA SENT BY THE CALLPP ONTO THE DISK, 

4 I 

5 .IPDF SLP 

6 005122 000 LPOUMCi .BYTE 0 lUNUSED 


7 005123 000 lPBMSI .BYTE 0 


8 005124 

000000 

LPCBCPI 

0 


9 005126 

000000 

LPWDCPi 

0 


10 

05130 

000000 

LPOBCPi 

0 


11 




.ENOC 


12 



1 



13 



» 



14 




.IFNOF 

slp 

15 



LPCALLI 

MOV 

•«*oevst,ri 

1« 




HOVB 

«477,LPSpERtRlJ 

IF 




CALL 

OEQREQ 

18 




.ENOC 


19 




.IFOF 

SLP 

20 

05132 

024141 

LPCALLI 

CMP 

-(Rn.-CRi) 

21 

05134 

032737 

020000 

001048 


BIT 

#20000, P«SPOLSM 

22 

05142 

001433 


BEO 

108 

23 

05144 



PUSH 

Rl 


05144 

010146 


MOV 

Rli-(SP5 

24 

05146 

011101 


MOV 

(R13 ,R1 

25 

05150 

010104 


MOV 

Rl«R4 

28 

05152 

016003 

000010 


MOV 

10CR03 ,R3 

2F 

05156 

006303 


A8L 

r3 

28 

05160 

063703 

000040 


ADO 

•RMEM8IZ.R3 

(R33.R2 

29 

05164 

111302 


MOVB 

30 

05166 

062702 

000005 


ADO 

#5,R8 

31 

05172 

042702 

177401 


BIC 

#177401,92 

32 

05176 

060201 


ADO 

R2,R1 

33 

05200 

011605 


MOV 

(SP),R5 

34 

05202 



PUSH 

-(R5) 


05202 

014546 


MOV 

-CR51,-(8P3 

35 

05204 

006202 


ASR 

R2 

38 

05206 

162601 


SUB 

C8P)*,R1 

37 

05210 

022701 

000770 


CMP 

#770, Rl 

38 

05214 

002462 


blt 

48 

39 

05216 



CALL 

COPBUF 


05216 

004767 

000356 


JSR 

PCjCOPBUF 

40 

05222 



POP 

R4 


08222 

012604 


MOV 

(SP)*,R4 

41 

05224 



CALL 

68 


05224 

004767 

000270 


JSR 

PC,6S 

42 

05230 

000406 


BR 

88 

43 



1 



44 

05232 

012760 

177200 

000004 

10SI 

MOV 

#-600,4(r0) 

45 

05240 



PUSH 

Rl 


05240 

010146 


MOV 

Rl,-fSP) 

46 

05242 

000167 

174142 


JMP 

O^QRQ 

47 



»LAST RECORD WAS NQT A .CLOSE 

48 

05246 

005741 

881 

TST 

-CRn 

49 

05250 

010102 


MOV 

Rl,R2 

50 

08252 

005721 


TST 

(Rl)* 

51 

05254 

011101 


MOV 

c«n.Ri 

52 

05256 

161201 


SUB 

(R2) ,R1 

53 

05260 

022701 

000770 


CMP 

#770rRl 

54 

05264 

003034 


BGT 

28 

55 

05266 

010701 

981 

MOV 

PC.Rl 

56 

05270 

062701 

177638 


ADD 

#LPWDCP-'.,R1 

57 

05274 

005071 

000000 


CLR 

ptRn 

58 

05300 



CALL 

FiNOBK 


05300 

004767 


JSR 

pC.finobk 


174434 


fBLOCK IN MOTION SW 
ICURRENT BUFFER POINTER 
ICURRENT NORD POINTER 
JNEXT BUFF POINTER COUMMY) 


JPOINT R1 To LPWOCP 
JSHUT SPOOLER? 


ISAVE Rl. NO 

;GET CONTENTS OF LPWDCP IN R1,R4 
JGET caller BUF. add. IN R3 
IRELOCATE ADD. 


IGET BYTE COUNT FROM BUFFER IN R2 
|ADD HMD BYTE COUNT ♦ EVEN BYTE COUNT 


IBUMP LPWOCP BY THE SIZE OF NEXT RECD. 

IGET LPWOCP ADD. IN R4 

IPOINT TO LPCBCP » SAVE CONT, OF lPCBCP ON STACK 

ICONVERT TO WORD COUNT 

ICOMPUTE SPACE REM. 
fSPACE LEFT? 


jCOPY CALLER BUFFER 


ITEMP SAVE Rl IN R2 
;CHECK FOR .CLOSE 


INO 

JSPOOLER SHUT OOWN, REPORT 


fOUMMY 


IPOINT Rl LPCBCP 

rSAVE IN R2 

»BUMP Rl LPWOCP 

jGET CURRENT WORD AOD, IN Rl- 

;6ET REMaINNIng w OF WORDS 

ISPACE LEFT? 


IGET ADD. OF LPWOCP IN Rl 


»NO, PUT BUFFER ON OISK 
iGET DISK Block w 


Figure 5-1 
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SP0Ltl.i25 MACRO-11 VSASee PAGE 27; 

LP CALL SERVICE 


S9 

65304 



PUSH 

Rl 


05364 

010146 


MOV 

Rli-(8P) 

SB 

65366 

016702 

177612 


MOV 

LPCBCP, R2 

61 

05312 

011662 

006778 


MOV 

(8P5,TwDi(R2) 

62 

05316 

012703 

000004 


MOV 

PLPC0D,R3 

63 

05322 

016701 

003330 


MOV 

LPBMSA.Ri 

64 

05326 

105211 


INCB 

t«n 

65 

05330 



CALL 

putblk 


05330 

004767 

002772 


JSR 

PC, PUTBLK 

66 

05334 

016704 

003276 


MOV 

LPCBA0,R4 

67 

05340 


SSI 

CALL 

getbuf 


05340 

004767 

173346 


JSR 

PC.GETBUF 

66 

05344 

010124 


MOV 

Rl, (R4)« 

69 

05346 



POP 

(»15 


05346 

012611 


MOV 

(SP)+, (Ril 

7B 

05350 

062701 

000004 


ADD 

P4,R1 

71 

05354 

010114 


MOV 

Rl, (R45 

72 

05358 


2SI 

CALL 

oeqrfo 


05356 

004767 

174014 


JSR 

pc,oeqreq 

73 

05362 


4SI 

POP 

Rl 


65362 

012601 


MOV 

CSP5*,R1 

74 

05364 



PUSH 

r3 


05364 

010346 


MOV 

R3,-(SP3 

75 

05366 



PUSH 

r2 


05366 

010246 


mOv 

R2,-rsP3 

76 

05370 

005071 

000600 


CLR 

#CRn 

77 

05374 



CALL 

FlNDRK 


05374 

004767 

174340 


JSR 

pc,finobk 

78 

05400 



PUSH 

Rl 


05400 

010146 


MOV 

Rl,-(SP3 

79 

05402 



CALL 

getbuf 


05402 

004767 

175304 


JSR 

pc, getbuf 

86 

05406 

011611 


MOV 

(SP),(Rn 

81 

05410 

016704 

003222 


MOV 

LPCBAD,R4 

82 

05414 



PUSH 

(P43 


05414 

011446 


MOV 

tP4) ,-(Sp3 

63 

05416 



PUSH 

CR4) 


05416 

011446 


MOV 

(R4),-fSp) 

64 

05420 

062716 

000776 


ADD 

pTWDI, (Sp) 

85 

05424 

016636 

000004 


MOV 

4CSP) ,P(SP)* 

66 

05430 

010124 


MOV 

Rl, CR43« 

87 

05432 

062701 

000004 


add 

P4,RI 

88 

05436 



PUSH 

R4 


05436 

010446 


MOV 

R4,-(SP) 

89 

05440 

010114 


MOV 

Rl , (R43 

96 

03442 

010104 


MOV 

Rl , R4 

91 

05444 

016602 

000006 


MOV 

6(3P3 ,R2 
10CSPJ ,R3 

92 

05450 

016603 

000010 


MOV 


93 

05454 



CALL 

COPBUF 


05454 

004767 

000120 


JSR 

pc.copbuf 

94 

05460 



POP 

R4 


05460 

012604 


MOV 

tSp3+,R4 

95 

05462 



POP 

R2 


05462 

012602 


MOV 

(SPJ*,R2 

96 

05464 

012703 

000004 


MOV 

#LPC0D,R3 

97 

05470 

062706 

000006 


ADO 

p6,SP 

98 

05474 



PUSH 

04 


fSAVE BLOCK M ON STACK 

>GET CCLPCBIP) IN R2 
ISAVE BLOCK t$ IN TWOl 

fGET LP.OEV CODE IN R3 
ISET LP0MSA 

jPUT BUEP. ON DISK 

)GET add. OF LLPCBAOBCP IN B38R4 
JGET A NEM BUF 

|SET LPCBCP»BUFAO 

|SET BLOCK « IN HWO0 OF NEW BUFF. 

I0UMP R2 TO WORD 2 OF BUF 

ISET LPWOCP 

JDEQUE REQUEST & EXIT IN WAIT STATE 

jRESTORE ADD. OF CURRENT WORD IN R1 
JSAVE R3.R2 

;SET buff, end Sw 
|GET DISK BLOCK M 

fSAVE BLOCK w 
;GET A BUFF, 

iSET BLOCK tt IN HWOB OF NEW BUFF, 

|6ET ADD. OF LLPCBAOBCP In R4 

fSAVE COnT. of LPCBCP 

;BUHP TO TWDI 

»SET link In old BUFF, 

iSET LPCBCP t BUMP TO LPWDCP 
iPOINT TO WORD 2 IN BUFF. 

ISAVE LPWDCP ADD. ON STACK 

ISET LPWDCP 

|GcT CONT, Or LPwDCP 

IRESTORE R3,R2 

ICOPY caller buffer 

iSAVE LPWOCP ADD. IN R4 

ICONT. OF LPCBCP ON STACK TOP??? 

|GET DEV, CODE IN R3. FOR PUTBLK 
ICLEAN STACK 
iSAVE RS 


Fj-yiilT© 
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SPOLH.125 

MACRO- 

11 V3A000 

Page p7; 


LP CALL SERVICE 





05474 010446 


MOV 

R4,-(SP) 


99 05476 016701 


MOV 

LPBmsa.Ri 

ISET LPBMSA 

003154 





100 5502 105211 


INCB 

(Ri) 


101 5504 


CALL 

PUTBLK 

|PUT BUFF. ON DISK 

5504 004767 


J3R 

PC.PUTBLK 


002616 





102 5510 


POP 

R4 

»TEMP save R1 

5510 012604 


MOV 

(SP5 *,R4 


103 5512 


CALL 

68 

/CHECK FOR .CLOSE 

5512 004767 


J3R 

PC,6S 


000002 





104 5516 000717 


BR 

28 


105 5520 010401 

6SI 

MOV 

R^.Rl 

/SAVE R4 

106 5522 011104 


MOV 

(R1),R4 

;GET C(LPWDCP) IN R4 

107 5524 022764 


CMP 

MLPCL08,-2CR4) 

IFF+CRT? 

006414 





177776 





108 5532 001021 


BNE 

78 


109 5534 010104 


MOV 

R1«R4 

/RESTORE R4 

110 5536 


AOR 

T*BLE*LPB,R2 

/GET LP.LPB ado. IN R2 

5536 010702 


MOV 

PC,R2 


5540 062702 


ADD 

pTaBLE*LFB-,,R2 


004176 





111 5544 016701 


MOV 

lPcbao,r{ 


003066 





112 5550 


PUSH 

(R2) 

/SAVE OLD LFB 

5550 011246 


MOV 

(R2) ,-fSp) 


113 5552 017112 


MOV 

pCRD , (R2) 

/SET LFB in TABLE 

000000 





114 5556 011101 


MOV 

(R1),R1 


115 5560 


POP 

2(Rn 

/SET OLD LFB IN BUFFER 

5560 012601 


MOV 

(SP)*.2{R1) 


000002 





116 5564 012761 


MOV 

•-1,TWO0'(R1) 

/SET EOF CODE IN BUFFER 

177777 






000774 

}}a t8P)* iRETURN TO 9 (NOT SUB RETURN) 

118 5S74 000634 BR gS 


•***•* A 

119 5576 000207 79« RETURN 

120 I 

121 .ENOC 

122 .IFOF sLPjlcn 

123 5600 012324 COPBUFi MOV (R3)*,(R4)* iCOPY CALLER BUFFER 

124 5602 005302 DEC r2 

125 5604 001375 BNE COPBUF 

126 5606 010476 MOV R^»P2(SP) 

000002 

127 5612 000207 RETURN 

128 ; 

129 .ENOC 

15® .SBTTL PL INTFRrUPT SERVICE 
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HACRO-11 V3A000 PAGE 39 


SP0L11.12S 


address table 



1 


.sbttl 

address TABLE 

2 

3 007170 


ADRTBLI 


4 007170 

003024 

RKCAOl .WORD 

rktcbp 

9 


.IPOP 

$LP 

6 007172 

004145 

LPONADt .WORD 

lponce 

7 


.ENOC 


8 007174 

010324 

TABPUAl .WORD 

table*plteop 

9 


.IPOP 

SPL 

10 


PLONADI .WORD 

PLONCE 

11 


.ENOC 


12 07176 

007322 

BTHPADi .WORD 

bThpst 

13 07200 

007316 

STBKNAI .WORD 

sTBknh 

14 07202 

010274 

tabladi .word 

table 

19 07204 

010276 

TABPCBt .word 

TABLE*CBN 

16 07206 

010326 

TABPLCi .WORD 

TABLE*PLTE0P*CBN 

17 07210 

010912 

TABCOCI .WORD 

TABLE+COTEOP*C0N 

18 07212 

010404 

TCBKlAi .WORD 

TCBOKl 

19 


.IFDP SCO 


20 07214 

005434 

COCPADI .WORD 

COCBIP 

21 07216 

006002 

COCBAOl .WORD 

cDCBCP 

22 


.ENOC 


23 


.IPOP 

SLP 

24 07220 

004706 

lpcbadi .word 

LPCBCP 

29 07222 

004192 

UPCWADI .WORD 

LRWDIP 

26 


.ENOC 


27 


.IPOP 

SPL 

28 


PLCBADi .WORD 

PLCBCP 

29 


PLWOAOJ .WORD 

PLWDIP 

30 


.ENOC 


31 07224 

010432 

TC8K3AI .WORD 

TCBDK3 

32 07226 

002322 

ENOBADI .WORD 

ENDBSW 

33 07230 

011116 

BUPLADI .WORD 

BUPLHO 

34 


.IPOP 

SLP 

39 07292 


LPCPAOl 


36 07232 

004190 

LPCZADt .WORD 

lpcbip 

37 07294 

004705 

I.PBH8AI .WORD 

lpbhs 

38 


.ENOC 


39 07239 

010310 

TABCDTi .WORD 

table*coteop 

40 07240 

010300 

tabcrti .word 

TABLE*CRP 

41 07242 

010330 

TABPOTi .WORD 

TABLE*PLTE0P*CRP 

42 


.IPOP 

SRL 

43 


PLCIADt .WORD 

plcbip 

44 


PLOIAOl .WORD 

PLOBIP 

49 


PLBHSAl .WORD 

PLBHS 

46 


.ENOC 


47 


.IPOP 

SCO 

48 07244 

009431 

C0BH8AI .WORD 

COBHS 

49 07246 

009442 

COlNTAi .WORD 

COINT 

90 


.ENOC 


91 07290 

010314 

tabocti .word 

table*cdteop*crp 

52 07252 

006010 

CDCAADi .WORD 

COCALL 

53 07254 

000146 

SPSTAOi .WORD 

spst 

54 


.IPOP 

SCO 

59 07296 

006006 

CDOBAOl .WORD 

COOBCP 

56 87260 

000746 

RESTAOl .WORD 

restro 

57 87202 

009777 

COONADI .WORD 

COONCE 

58 


.ENOC 


59 07264 

000000 

ONCEPLI .WORD 

0 

60 

177741 

aotcnt-adrtbl- 

./2 

61 


1 


62 

53 
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>ITM*p t TARIFF 


84 J 

69 07266 BITMAPi .BLOCK l4 

66 07316 000000 JLTBKNMi .MORO 0 

67 07320 000000 .NORO 0 

8B 07322 BTHPSTI .BLOCK 360 

69 000360 BTKPSZ*.-BTMPST/2 

70 10262 000000 BTMPEOl 0 

71 I 

72 10264 .BLOCK 4 

73 10274 table* .BLOCK 44 

74 000044 TABl3Zb.«TABLE72 
79 

76 

77 

78 

79 


^spooler id INPO 
ISPOOLER area pbn 
rSPOOLER area size 
ISTART OP BIT HAP 

IPOINTER TO END OP BIT HAP 

|HWO»S 

f3 DEVICES * 14C83 WORDS EACH 


TABLE ENTRIES aRE AS POLLOWS POR EACH TASKI 
devcod/cbn/crp/nbn/^sb/lpb 
072/4/6/10/12 


Figure 5-1 

UIn^ICHANNEL Spooler Components (Cent.) 
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OUTPUT TASK 



Figure 5-2 

Task Call Service Routine 
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Set the SPOOLER task control lines 17-20 

registers 

Setup the disk TCB pointer lines 23-30 

table 

Setup and initialize BITMAP lines 32-49 

Initialize and setup TABLE lines 51-59 

Save BITMAP and TABLE on disk lines 61-66 

Set the SPOOLER switches lines 68,69 


LINE PRINTER OPERATIONS: 

Initialize the LP call service lines 96, 97, 103-106 
routine switches and pointers 

Clear all pending LP task re- lines 98-100 
quests in PIREX get a free 
block on disk, get a buffer. 

Set the NBN entry in TABLE. line 102 

Process the next SPOOLER line 122 

request 


5.5.2 LP SPOOLING 

All requests issued to spooled tasks (TCN = 0-177) after a 'BEGIN' 
directive to the SPOOLER, are processed by the SPOOLER. This is 
effected by PIREX. When the LP handler in the PDP-15 issues a request 
to the LP driver task in PIREX, the SPOOLER processes this request. 

The 'request dispatcher' transfers control to the 'LP call service 
routine' and the following operations are performed (Refer to 
Figure 5-1) : 

Get the current word pointer page 27, line 20 

address 


Check if spooling operations are 


lines 21, 22 


Point to the current word 


lines 24, 25 


Get the caller's buffer address lines 26-28 

and relocate that address 


Get the byte count of the lines 29-31 

current record, add the header 
word byte count, and make the 
byte count even 


Move ahead the current word line 32 

pointer by the size of the 
current record 
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Compute the space remaining in 
the current buffer 

line 

33-36 

Is the buffer full? 

lines 

37-38 

Copy the caller's buffer 

lines 

39, 123-127 

Check for a .CLOSE record 

lines 

41, 105-108 

The record is not a .CLOSE; one 
more record can fit. Process 
the next request 

lines 

42, 48-54 

The record is a .CLOSE record; 
save the old Last File Block 
(LFB) in TABLE 

lines 

109, 110, 112 

Set the new LFB in TABLE 

line 

113 

Set the old LFB in Header word 2 
of the buffer 

lines 

114, 115 

Set an end of file indicator in 
the buffer 

Go to line 55 

line 

116 

The buffer is full. Set an indi- 
cator to this effect in the 
buffer 

lines 

55-57 

Get a free block on disk (FINDBK) 

line 

58 

Set a pointer to the next block 
in trailer word 1 

lines 

59-61 

Set the "write block in motion" 
switch 

lines 

63, 64 

Put the buffer on disk (PUTBLK) 

lines 

62, 65 

Get another buffer (GETBUF) 

line 

67 

Set the "current buffer" pointer 
for the new buffer 

lines 

66, 68 

Set the block number in the 
current buffer 

line 

69 

Set the current word pointer to 
word 2 in the buffer 

lines 

70, 71 

Process the next request 

line 

72 


As disk blocks are written on the disk the Last Spooled Block (LSB) 
entries in TABLE are updated when the completion of I/O interrupt 
is processed by the 'disk interrupt service routine' in the 
SPOOLER (RKINT) . 
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5.5.3 LP Despooling 

When the LP device is idle and the first spooled data block is written 
onto the disk the despooling operations are started in the RKINT 
routine as follows (Refer to Figure 5-1 and 5-3) . 

WRITE PROCESSOR: 


Reset the "write block in 
motion" switch 

Page 24, lines 20, 21 

Set the LSB in TABLE 

lines 22, 23 

LPONCE = 0, first time 
through set LPONCE = 1 

lines 24-27 

Set the "read block in 
motion" switch 

line 28 

Get a buffer (GETBUF) 

line 29 

Get a disk TCB (GETRKT) 

line 35 

Read a block from disk 
(GETPUT) 

lines 32-34, 36, 37 

Return the disk TCB and 
then EXIT 

line 38 


READ PROCESSOR: 

Is the block read = LFB? page 23, lines 44-46 

Yes, set LFB = 1 line 47 

Reset the "read block in line 49 

motion" switch 

Decrement the LP free buffer line 50 

count 

LPONCE = 1, first time lines 51-54 

through, start up LP 

Set Current Block Number line 67 

(CBN) in TABLE 

Set the current despooling lines 68, 69 

buffer pointer 

Set the current despooling lines 70, 71 

word pointer 

Set the Next Block Number lines 72, 73 

(NBN) in TABLE 

Set Current Record Pointer line 74 

(CRP) in TABLE 
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RKINT 



Figure 5-3 

Device Interrupt Servicing Logic (For LP) 
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Set LPONCE = 2 line 55 

LP despooling is not shut lines 56-59 

down; send the LP write 

request 

Set the LP busy switch line 61 

Return the disk TCB and then 
EXIT 


Once despooling operations are started the ' LP interrupt service 
routine' continues the despooling operations until there is no more 
data to be despooled. 

The following operations are performed here (Refer to Figure 5-1) : 


Protect against a disk 
interrupt 

page 

26, line 

There's nothing more to do; reset 
LPONCE 

lines 

25-28 

Reset LPBMD and increment the 
free buffer count 

lines 

29, 30 

Return the buffer (GIVBUF) 

lines 

31, 32 

Set the LP idle switch and 
return 

lines 

33, 34 

There's more to do; a block is 
in motion 

lines 

35, 36 

Release the buffer (GIVBUF) 

lines 

37-39 

Increment the free buffer count 

line 

40 

Wait for a block to be read in 

lines 

41-44 

Set CBN - NBN in TABLE 

line 

46 

Set CRP in TABLE 

line 

47 

Set NBN in TABLE 

lines 

48-51 

Set the current despooling buffer 
and word pointer 

lines 

52-55 

Shut down? Shut LP? Shut 
despooler? 

lines 

63-68 

Current record in buffer is a 
.CLOSE record, check if more 
blocks to do 

lines 

69-71 

There are no more blocks reset 
TABLE entries, switches and 
then exit 

lines 

73, 76, 
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One free buffer and no block 
in motion 

lines 

75-80 

Get next block 

line 

81 

Release buffer and wait to 
come in 

lines 

82, 37-44 

The first record is not a .CLOSE; 
send an LP write request 

lines 

85-86 

Point to the first word of the 
next record 

lines 

88-92 

There are more records left and 
one free buffer 

lines 

95-100 

There is no read block in motion 
and more blocks to do 

lines 

101-104 

Get next block 

lines 

105, 125-; 


Return from interrupt call 


5.5.4 SPOOLER Shutdown 

All spooling operations can be terminated by issuing the 'END' direc- 
tive to the SPOOLER. The following operations are performed (Refer 
to Figure 5-1) ; 


Reset the spooler timer request 
in PIREX 

page 9, line 

Set the PDP-15's request indicator 
in the busy/idle switch 

line 8 

Clear the 'device spooled' switch 

line 9 

Inhibit interrupts 

line 11 

Stop the LP task 

lines 15, 35- 

Reset the spooler switch 

line 25 

Shut off software interrupts 

lines 26-28 

Tell the caller that the 'END' 
is completed 

lines 29-30 

Send a request to disconnect 
the SPOOLER task 

lines 32, 33 
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CHAPTER 6 


SPOOLER TASK DEVELOPMENT 


6 . 1 INTRODUCTION 

This chapter discusses in detail the procedure for developing a 
spooled task, and, for integrating it into the SPOOLER software. The 
development of a spooled task^ in the UC15 system begins with the de- 
velopment and installation of the task under the PIREX system, if not 
already present (see Chapters 4 and 5) . 

Once this has been done, the following summary describes the steps 
necessary to integrate it into the SPOOLER software: 

1. Design and code the call service routine. (Refer to Figure 

6 - 1 .) 

2. Design and code the interrupt service routine. (Refer to 
Figure 6-1.) 



CALL side INTERRUPT side 


Figure 6-1 
SPOOLER Schematic 


NOTE 

The logical structure of the 'task call 
service routine* and the 'task interrupt 
service routine' depends upon whether the 
task is an input or an output task. The 
'task call service routine' is the de- 
spooler for an input task and it is the 
spooler for an output task. The 'task 
interrupt service routine' is the spooler 
for input tasks and it is the despooler 
for output tasks. 


^There is no program logic or coding connections between the device 
driver tasks under PIREX and the spooler task. All communication to 
the device driver is through the TCB only. 
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3. Add code in the RKINT routine to handle the disk read or 
write operations for this task. 

4. Code a routine to setup TCB and issue request. 

5. Add a TCB for this task. 

6. Add code to the BEGIN directive processing routine to 
initialize, and, (if necessary) startup this task. 

7. Add code to the END directive processing routine to clear 
up this task. 

8. Add code to the 'request dispatcher' to dispatch calls to 
this routine. 

9. Add code to the 'device interrupt dispatcher' to dispatch 
interrupts from this device. 

10. Increase the size of TABLE by 6 words if not sufficient. 

11. Add entries of frequently addressed tags to the central 
address table. 

12. Update DEVCNT and DEVSPP to ensure sufficient buffers and 
TCBs . 

13. Update FINDBK routine. 


The remaining sections describe the above steps in more detail. The 
Line Printer spooler task is used as a descriptive example. 


6.1.1 Call Service Routine 

This is the routine that normally processes calls from the handler 
on the PDP-15. For an output task this routine spools data onto the 
disk as indicated in Section 5.3.3. The operations performed by 
this routine are discussed in detail in Section 5.4.2. 

Normally, data from records are copied into a buffer until it is full. 
As soon as a buffer is full, it is written onto the disk with a 
pointer to the next block; and then a new buffer is obtained. This 
process is continued until a special record that indicates the end^ 
of the file is received. For the Line Printer, this is a record with 
form feed and carriage return characters only. On receipt of this 
record, the call service routine copies this record into the current 
buffer and writes it out; regardless of v;hether the buffer is full 
or not. This is done to ensure complete processing of a distinct 
logical entity, a file. The call service routine sets only the LFB 
entry in the TABLE. It uses the utility routines GETBUF , FINDBK, 
PUTBLK, and DEQREQ. 


6-2 



6.1.2 Interrupt Service Routine 

Completion of I/O interrupts from the device driver in PIREX is 
processed by this routine. For an output task, this routine 
despools the data onto the device as indicated in Section 5.3.5. 

The operations performed by this routine are discussed in detail in 
Section 5.4.3. 

The interrupt service routine for the Line Printer despools data 
from the buffer onto the device by issuing requests to the task 
running under PIREX. This routine, like other despooling routines 
in the SPOOLER, is double buffered to increase throughput. Pro- 
vision is made in the routine to wait for a block to be read into 
core during heavy disk utilization. This is done using the "block 
in motion" switch. 


6.1.3 Code to Handle the Disk Read/Write Operations 

All spooled tasks must perform certain functions on completion of a 
read/write block disk operation, as. Section 5.5.3 describes in 
detail. 

On completion of a read disk block request the TABLE entries must be 
updated and the Line Printer started up if idle. If the Line 
Printer is busy, control is transferred to the "DONE" section of 
code where the disk TCE is returned to the pool and control is 
relinquished. 

On completion of a "write block on disk" request, the buffer is returned 
and the LSB entry in TABLE is updated. If the Line Printer is idle, a 
request is issued for the Line Printer task to read in the next de- 
spooling block. This is done by supplying the NBNI entry in TABLE for 
the Line Printer. If the Line Printer is not busy or after issuing 
the read request as in read, control is transferred to the 'DONE' 
section of code. 


6.1.4 Routine to Setup TCB and Issue Request 

These operations are performed at several places in the SPOOLER. To 
optimize code this subroutine performs the TCB setup and request 
issuing functions. 

The Line Printer routine performs the following operations (Figure 
5-1) at tag STUPLT: 

Get the address of the LP TCB P^^s 16, lines 18-19 

Go to setup common line 20 

Set the buffer address specified line 31 

in the TCB 


(1) See Section 5.4.7. 
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Reset the REV in the TCB 
Issue the request 
Return control 


lines 32-33 
line 34 
line 35 


6.1.5 TCB 

The format of the TCB used by spooler tasks is almost identical to 
the format of TCBs for tasks running under PIREX, except for the 
disk TCB which has an extra word. The extra word is used to store 
the TCN of the task for which the I/O transfer was requested. 

Another difference is that the TCN present in word '1' of all TCBs 
in the SPOOLER has the unspooled bit set, i.e., TCN' = 2 OO 3 + TCN 
( 0 - 1770 ) . This is to prevent the request from being queued to the 
SPOOLER. Also, word 'O' of all TCBs contains the SPOOLER task code 
instead of the API information. This is to permit PIREX to transfer 
control to the 'device interrupt dispatcher' in the SPOOLER on receipt 
of an I/O completion interrupt from a SPOOLER request. 


6.1.6 Initialization in the BEGIN Routine 

All SPOOLER tasks have to be initialized before starting of spooling 
operations. The initialization normally consists of setting the 
pointers, switches and variables to the right value, obtaining 
buffers, block number on disk, etc. Section 5.5.1 explains these 
operations for the Line Printer in more detail. 


6.1.7 Cleanup in the END Routine 

All SPOOLER tasks have to be cleaned up before termination of spool- 
ing operations. The cleanup for the Line Printer consists of stop- 
ping the LP driver task in PIREX and clearing all pending 
requests in the task's TRL. 


6.1.8 Updating the Request Dispatcher 

The request dispatcher in the SPOOLER contains code to check the TCN 
of the current request being processed and to transfer control to 
the appropriate routine. For the Line Printer (Figure 5-1) this is 
done at: 

Page 6 , lines 34-36, 72 
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6.1.9 Updating the Device Interrupt Dispatcher 

The SPOOLER is informed of completion of I/O requests through the 
PIREX Software Interrupt facility. PIREX calls the device interrupt 
dispatcher, which determines the task that issued the request and 
transfers control to the tasks interrupt service routine. 

For the Line Printer this is done at: 

Page 22, lines 12, 13, 19 


6.1.10 Updating TABLE 

The TABLE contains the complete record of the data being spooled and 
despooled. Each task has a 6 word entry in this TABLE. TABLE size 
must be increased (change the 'BLOCK XXX' statement at page 33, 
line 73) based upon the number of tasks in the SPOOLER. Currently 
there is sufficient space in the TABLE for 3 additional tasks. 


6.1.11 Updating the Central Address TABLE 

Code optimization in a PIC program is done by maintaining a table of 
addresses for frequently used tags. This table contains the unre- 
located addresses of tags at assembly time. These are converted to 
absolute addresses (by adding the SPOOLER first address) by the once 
only section of code in the SPOOLER (Figure 5-1, page 6, lines 12-26). 

For the Line Printer (Figure 5-1) the following tags are present in 
this table: 


LPONCE 

page 33, line 

6 

TABPCB 

line 

15 

LPCBCP 

line 

24 

LPWDIP 

line 

25 

LPCBIP 

line 

36 

LPBMS 

line 

37 


6.1.12 Update DEVCNT and DEVSPP 

To facilitate automatic updating (increase or decrease) of buffers 
and disk TCBs in the SPOOLER based upon the number of tasks in it, 
a conditional parameter exists for each task. 

DEVCNT and DEVSPP are modified for the Line Printer (Figure 5-1) at: 
Page 3, line 13-14 
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Tasks are assembled into the SPOOLER by defining the conditional 
parameters of the form: 


$XX = ZZZZOO 

where 

XX = mnemonic of the task (LP for Line Printer) 

ZZZZ = a bit configuration (0400 for LP - there is a bit for each 
task) 


6.1.13 Updating the FINDBK Routine 

Code is present in this routine to prevent allocation of the disk 
block that is currently being despooled. This is necessary to 
insure proper operation of the spooler because despooling operations 
are halted when CBN = LSB. For the line printer task (Figure 5-1) 
this is done at: 

page 17, lines 89, 90, 97, 98 


6.2 ASSEMBLING THE SPOOLER 

To assemble the SPOOLER with the required task in it, it may be 
necessary to edit the SPOLll XXX source file to supply the appropri- 
ate assembly parameter. To assemble the SPOOLER with the Card 
Reader task also insert the line: 

$CD = 20000 after the sub-title conditional assembly parameters. 

(For Plotter insert; $PL = 10000) 

An assembly of the above source (Figure 5-1) will produce a SPOOLER 
with Line Printer and Card Reader tasks. 
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APPENDIX A 
ABBREVIATIONS 


API 
ATL 
CAF 
CAP In 

CBN 

CIOD 

CRP 

DOS-15 

EV 

LFB 

LIOR 

LSB 

PC 

PIC 

RDRS 
REV 
RSX-15 
SAP In 

SIOA 


Automatic Priority Interrupt 
Active Task List 
Clear All Flags 

Clear APIn flag in DR15-C (CAPIO = 706104, 

CAPIl = 706124, CAPI2 = 706144, CAPI3 = 706164) 

Current Block Numbers 

Clear Input/Output done (706002) 

Current Record Pointer 

PDP-15 Disk Operating System 

Event Variable 

Last File Block 

Load Input/Output Register (706006) 

Last Spooled Block 
Program Counter 

Position Independent Code (can be loaded any- 
where in memory) 

Read Status Register (706112) 

Request Event Variable 

PDP-15 Real Time System Executive 

Skip on APIn flag in DRll-C (SAPIO = 706101, 
SAPIl = 706121, SAPI2 = 706141, SAPI3 = 706161) 

Skip on Input/Output data Accepted (706001) 
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TCB 

TCBP 

TRL 

UC15 


Task Control Block 
Task Control Block Pointer 
Task Request List 
UNICHANNEL- 15 
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APPENDIX B 

CURRENTLY IMPLEMENTED TCBs 


The general format for all task control blocks is as follows 

.15 8,7 0 , 


1 f 

ATA 

1 1 1 1 1 

1 

1 

1 1 f 

ALV 

1 1 1 1 f 

1 word 0 

t 

1 1 

FCN 

1 1 1 I 1 

1 1 
is; 

i t 1 

TCN 

1 1 1 1 1 

1 word 1 

1 

t I 

1 t 1 1 1 

REV 

1 1 1 

1 1 1 1 1 

1 word 2 
! 


Other data 

/ . y 

y particular ^ 

I to this task I 

»»»»»» t t I I I I I I I I I 


word 3 


word n 


ATA PDP-15 API interrupt vector address 

ALV PDP-15 API interrupt priority level. Must be 0, 1, 2, 
or 3 (unless FCN = 3) . 

FCN Function to perform upon completion of this request. 
Valid values are: 

000 Interrupt PDP-15 at location ATA, priority ALV. 

001 Do nothing (except set REV) 

003 Cause software interrupt to the PDP-11 task whose 
task code number is in ALV. 

S 0 if this request may be spooled. 

1 if this request may not be spooled. 

TCN Task code number of the task which is to process this 
request 

REV Request Event Variable. Initially zero, set to a non- 
zero value to indicate completion of the request. 

The meaning of the various return values is described 
below. 
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Returned REV value: 

1 Successful (normal) completion. 

-200 Non-existent task. The task code number (TCN) does not 
correspond to any task currently in the PIREX system. 

-300 Illegal ALV value. The request may or may not have been 
performed - see individual request descriptions. The 
PDP-15 is interrupted at API level 3. 

-777 Node Pool empty. PIREX is temporarily out of nodes, and 
therefore is unable to insert this request into the 
appropriate list. Reissue the request after a brief 
delay. 

Other The meanings of other returned REV values are given with 
the descriptions of the task control blocks to which they 
apply. 

In the sections that follow, many of the task control block diagrams 
show S and TCN combined into a single 8-bit quantity. This is done 
to indicate that the particular task may never be spooled, and thus 
S is always 1. 

B.l STOP TASK (ST) 

This task provides the capability to stop one or all tasks in PIREX. 
Stopping a task may immediately abort processing of the request the 
task is currently processing, and also any PDP-15 originated requests 
on the task request list. The format of the task control block for the 
stop task is as follows (note that this is a non-standard task 
control block) : 


,15 

8.7 




1 

{ unused 

• 1 1 1 1 1 , 1 • 1 , I 1 ' 1 • 

word 

0 

1“ 1 

f^i 
1 1 

— , 

TCN ; 

,,,,,,,,,,, 

1 

word 

1 

1 

; REV 

1,111, ,1,1 ,,,**> 

word 

2 


TCN If zero, this is a stop all tasks directive. 

A If set unconditionally, abort the current request for this 

(or all) task(s). If clear, allow the request currently 
being processed by this (or each) task to complete if and 
only if the request originated from the PDP-11. Only 
PDP-15 requests on the task request list will be aborted 
regardless of the setting of this bit. 
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All requests which are aborted via this request will never complete; 
the request event variables (REVs) of such requests will never be 
set to a non-zero value. A permanent task which is stopped via this 
request will be placed in the wait state; a temporary task will be 
placed in the stopped state. 

Returned REV values : 

1 Successful completion 

-600 Task to be stopped is not connected to PIREX. 

Only applicable when TCN / 0 . 


B.2 SOFTWARE DIRECTIVE TASK (SD) 

Descriptions of the software directives, including details of their 
task control block formats, are given in Section 3.6, Software 
Directive Processing. The general task control block format for all 
software directives is as follows: 


word 
word 1 
word 2 
word 3 
word 4 

word n 


OPR Indicate the exact operation (directive) to be performed. 
For details see Section 3.6. 

Returned REV values: 

1 Successful completion 

-400 Invalid OPR (directive/operation code) values. 

Other See individual directive description in Section 3.6, 


til 

ATA 

1 1 1 

^ 

1 

1 

1 1 I 

ALV 

1 I I 1 1 

I 

1 I 1 

FCN 

1 1 1 

1" 

1 

1 

III 

2j?l 

1 1 1 1 1 

1 

i REV i 

t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

1 1 1 

OPR 

I 1 1 

f— 

1 

1 

1 1 1 




Contents 

depend 



/ upon ' 

5 directive I 

flllfifttftftllft 


B.3 DISK DRIVER TASK (RK) 

The disk driver task provides the capability of using the RK05 cart- 
ridge disk system. Task control blocks directed to this task have 
the following format: 
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15 


0 


8,7 

“1 

ATA ; ALV 

tiiiiitiiiiir 

FCN ; 202 

iiiiitiiiitti 

REV 

tiitiitttiiit 

Block Number 

ttiittiiiiiii" 

REL + MSMA 

tiitiiiiittti 

LSMA 

iiiitiiiiiiii 

Word Count 
unused | UnitI Function 

• • t f t t • 1 1 f t t > f t 

RKCS 

iiiiiiititiiiii 

RKER 

t i I I t I I I t I t I I I t 

RKDS 

t I I I I I I I I t t t t I I 


word 

0 

word 

1 

word 

2 

word 

3 

word 

4 

word 

5 

word 

6 

V7ord 

7 

word 

10 

word 

11 

word 

12 


ATA 

Usually 047g 

ALV 

Usually 000 

REV 

Set to 1 upon completion regardless of errors. 

Block Number 

Disk block number to transfer 

REL 

000000 if request comes from PDP-15 
100000 if request comes from PDP-ll 

MSMA 

Core address at which to begin transfer - most 
significant bits 

LSMA 

Core address at which to begin transfer - least 
significant bits. 

Word Count 

Two's complement of the number of words to 
transfer 

Unit 

Disk drive (unit) number on which to perform 
the operation. 

Function 

Operation to be performed. 
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Valid values are: 


002 

Write 


004 

Read 


006 

Write 

check 

012 

Read < 

Check 

016 

Write 

lock 


For detailed descriptions of the functions, see the RKll-E 
Disk Drive Controller Manual (DEC-ll-HRKDA-B-D) . 

RKCS Upon completion of the operation, these three 

RKER words are loaded from the corresponding disk 

RKDS controller registers. See the RKll-E Disk 

Drive Controller Manual (DEC-ll-HRKA-B-D ) tor 
a description of their meaning . 

If the request originates from the PDP-11, LSMA is the 16-bit PDP-11 
byte address at which the transfer is to begin. If the request 
originates from the PDP-15, MSMA and LSMA together are the 17-bit 
PDP-15 word address at which the transfer is to begin. Upon comple- 
tion of the transfer, REV is always set to 1, regardless of whether or 
not the transfer succeeded. RKCS, RKER, and RKDS must be examined 
to determine whether the transfer succeeded or an error occurred. 

Returned REV Values: 

1 Request complete. Request may or may not have succeeded. 
-300 Illegal ALV value. Request complete. 


B.4 LINE PRINTER DRIVER TASK (LP) 

The task control block format is as follows: 


15 8,7 0 

I r~ 





r- 

ATA ; ALV 

1 1 1 1 1 1 1 1 1 1 1 


I t 




FCN isi 004 

1 1 1 t 1 1 1 1 1 I 1 


1 1 




REV 

1 f 1 1 1 1 1 • 1 1 1 


r 1 




REL 

1 1 1 1 I 1 1 1 1 1 1 


1 ■ 




Buffer Address 

1 1 f 1 1 1 1 1 1 1 1 


I 1 




unused 

1 1 1 r 1 t 1 1 1 1 1 


1 f 




Status Flag 

f 1 t 1 1 1 1 1 r 1 1 


1 1 


word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 
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ATA 

Usually 056g 




ALV 

Usually 002 




S 

Usually 0 (indicating spooled 

operation) 

REL 

000000 If request 
100000 If request 

originates 

originates 

from 

from 

PDP-15 

PDP-11 


Buffer Address PDP-11 byte address, if request is from PDP-11 
PDP-15 word address, if request is from PDP-15 

Status Flag Unused if request is spooled. 

Cleared to zero at beginning of request proces- 
sing and set to 000001 at completion if request 
is not spooled. 

The buffer address argument refers to a line buffer of the following 
format : 


.15 


8,7 


0 . 



f 

1 

Mode 

1 

1 

f 

Count 

1 

1 

word 

0 

f 1 

1 • 1 1 

III. 

I I 1 1 1 




t 

1 

1 1 

LF 

III. 

i 

t 

• 

tiff 

unused 

1 I t I » 

1 

1 

word 

1 

1 

1 




1 

1 

word 

2 

/ 

/ 


Data 


/ 

/ 



f 

f 




t 

t 

word 

n 

1 f 

» « » » 


1 • 1 1 1 

t t 




Count The number of bytes of data in the buffer. 

Excludes the four byte header. 

Mode Indicates transfer mode. Legal values are: 

0 lOPS ASCII 

1 Image 

LF May be altered by the driver. 

Data One line of output for the line printer. 

The data sent to the line printer driver is a series of independent 
bytes. If a byte is positive, it represents a 7-bit ASCII character. 
If a byte is negative, it represents some number of spaces, the 
number of spaces being equal to the absolute value of the byte. If 
a line is in image mode, only the characters represented by the data 
bytes are output. If a line is in lOPS ASCII mode, a line feed is 
output before the beginning of the line unless the first character 
of the line is a carriage return or form feed. A carriage return is 
always output at the end of lines in lOPS ASCII mode. A line contain- 
ing just the characters carriage return followed by form feed causes 
no output in either mode, but rather represents a .CLOSE (end of file) 
operation . 
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Line printer errors are not reported via returned REV values. The 
only line printer error which can occur is for the printer to go off 
line (become not ready) . The line printer driver reports this by 
placing the value 4 in the device error byte of its entry in the 
DEVST table (see Section 3.6.4 on the Error Status Report Directive). 
When the printer comes back on line the driver clears the device error 
byte and outputs the line. Upon completion the REV is set to 1. 

Returned REV Values: 


1 

Successful completion 


-300 

Illegal ALV value, 
have been taken. 

Action may or 

may not 

-600 

Spooler shut down. 

No action has 

been taken. 

B.5 CARD READER DRIVER 

TASK (CD) 




The task control block format is as follows: 


,15 

8.7 


0. 



f 1 1 

1 

ATA ; 

t 1 1 t t 1 f 1 

ALV 

1 1 1 

1 

T 

1 

1 1 1 

word 

0 

1 1 1 

f 1 

FCN ;s; 

1 1 1 1 1 1 1 1 

005 

f t 1 

1 

f 

1 1 1 

word 

1 

1 1 1 

REV 

1 1 1 1 1 1 1 1 

1 1 1 

1 

1 

1 1 f 

word 

2 

1 t 1 

unused 

t 1 r f 1 1 1 1 

1 1 1 

1 

1 

1 t 1 

word 

3 

1 f 1 

Buffer Address 

I 1 1 I 1 f 1 1 1 1 1 

f 

1 

1 f 1 

word 

4 


ATA Usually 055g 

ALV Usually 001 

S Usually 0 (Indicating spooled operation) 

Buffer Address PDP-11 byte address, if request is from PDP-11 

PDP-15 word address, if request is from PDP-15 

The buffer address argument refers to a card buffer of the following 
format : 


, 0 ^ £ 

Byte Count 

I I I I I t I I I I I I t I t 

Checksum 

I I T I I f I t t I I I I I » 


/ 

/ 


Data 


/ 

/ 


I 

I t I I t f f I 



word 0 
word 1 
word 2 

v7ord n 
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Byte Count Always 80 ^q 

Checksum Word checksum of the buffer (including the byte 

count) 

Data ®^10 ^^^10 data 

The card data is not in ASCII. Each card column occupies one byte 
in the following format: 



bits 0-2 Contents of rows 1-7 encoded as follows: 

000 no pimches in rows 1-7 

001 row 1 punched 

010 row 2 punched 

011 row 3 punched 

100 row 4 punched 

101 row 5 punched 

110 row 6 punched 

111 row 7 punched 
bit 3 Indicates row 8 pimched 
bit 4 Indicates row 9 punched 
bit 5 Indicates zone 0 punched 
bit 6 Indicates zone 11 punched 
bit 7 Indicates zone 12 punched 


NOTE 

All combinations of punches which cannot 
be specified in this manner are illegal. 


Any errors that occur are not reported by returned REV values . 

Instead the lOPSUC numeric error code is placed in the device error 
byte of the card reader's entry in the DEVST table (see Section 
3.6.4, Error Status Report Directive). When the error condition is 
remedied, the driver clears the device error byte and the read opera- 
tion continues. Ultimately the read completes and REV is set to 1. 

Returned REV Values: 

1 Successful completion 

-300 Illegal ALV values. Action may or may 

not have been taken. 

-700 Spooler shut down. (Despooling not enabled) 

No action taken. 
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DOS-15 V3B000 Update Document 
B.6 PLOTTER DRIVER TASK (XY) 

The task control block format is as follows: 


15 8,7 0 

5 

ATA ; ALV 

FCN |si 006 

I I I t I I t I I I I 1 I I t 

REV 

REL 

» I I t I I I I I I I I t I I 

Buffer Address 

I I I I t I I I I I I I I I I 


word 0 
word 1 
word 2 
word 3 
word A 


ATA Usually 065„ 

O 

ALV Usually 003 

S Usually 0 (indicating spooled operation) 

REL 000000 If request is from PDP-15 

100000 If request is from PDP-11 


A 4 


PDP-11 byte address, if request is from PDjr'-ll 
PDP-15 word address, if request is from PDP-15. 


The buffer address argument refers to a data buffer of the following 
format: 


,15 8j7 0 

i Mode J Count 

I I I I I t I I I I I I I I I I 

! unused 

I I I I I I I I I I I I I I ? I 


/ 

/ 


Data 


/ 

/ 


I i I 


II 


fill 


I I I 


t I I 


word 0 
word 1 
word 2 

word n 


Count 


Mode 


The number of bytes of 
Excludes the four byte 

Indicates the function 
mode in which the data 
Valid modes are: 


data in the buffer, 
header . 

to perform and/or the 
should be interpreted. 
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1 Line mode 

2 Character mode 

3 Initialize 

4 Pen select^^^ 

377 End of file 

Line mode data takes the following form. Each line is represented by 
a pair of data words. The first word is the incremental change in the 
X coordinate from the beginning to the end of the line, the second 
word the change in the Y coordinate. If this is to be an invisible 
line - i.e., it is to be drawn with the pen raised - 100000^ should 
be added to the first word (change in X) . 

Character mode data is a series of ASCII characters to be drawn, one 
character per byte. Initialize requires 8 words of data which 
specify the character size and orientation for character mode plotting. 
The pen select operational^ takes two words of data. The first is the 
pen number for the XY311 plotter (1, 2, or 3). The contents of this 
word are destroyed by the pen select operation. The second word must 
be zero. An end of file merely raises the pen. (It also forces the 
XY data through the spooler buffers if spooling is enabled. ) 

Returned REV Values : 


1 

Successful completion 

-300 

Illegal ALV value. 

Action may or may not have been 


taken . 


-600 

Spooler shut down. 

No action taken. 


(1) This is used only by the XY311 plotter. 
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APPENDIX C 

UC15 RELATED ERROR MESSAGES 

I OP sue YYY XXXX 

Where YYY denotes one of the following: 

EST Stop all I/O Task 

ESD Software Driver " 

RKU Disk Cartridge " 

DTU DECTAPE " 

LPU Line Printer " 

CDU Card Reader " 

PLU Plotter 

ESP Spooler 

EMA MACll 


XXXX denotes one of the following: 

3 - ILLEGAL INTERRUPT TO DRIVER 

4 - DEVICE NOT READY 
12 - DEVICE FAILURE 

15 - SPOOLER FULL WARNING MESSAGE 

20 - SPOOLER DISK FAILURE - SPOOLING DISABLED 

45 - GREATER THAN 80 COLUMNS IN 
CARD 

55 - NO SPOOLER BUFFERS AVAILABLE 
72 - ILLEGAL PUNCH COMBINATION 
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74 - TIMING ERROR - CARD COLUMN 

LOST - RETRY CARD 

75 - HARDWARE BUSY - DRIVER NOT 

76 - HARDWARE ERROR BETWEEN 

CARDS 

77 - UNRECOGNIZED TASK REQUEST - 

DEVICE NOT PRESENT 

400 - SPOOLER EMPTY - PDR-15 INPUT 
REQUEST PENDING 


Additional lOPS error messages: 


Error Code 


25 

XY plotter - value too large for plotting 

27 

XY plotter - mode incorrect. 

200 

Non-existent task referenced. 

300 

Illegal API level given (illegal values 
are changed to level 3 and processed) . 

400 

Illegal directive code given. 

500 

No free core in the PDP-11 local 
memory . 

600 

ALT node for this TCN missing. 

777 

Request node was not available from the 
POOL; i.e., the POOL was empty and the 
referenced task was currently busy or the 
task did not have an ATL node in the 
Active Task List. 
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APPENDIX D 

UNICHANNEL-15 OPTION 


NOTE 

The following applies ONLY to the con- 
struction of a DOS-15 V3A000 UNICHANNEL 
option system. This is required as a 
prerequisite to the construction of a 
DOS-15 V3B000 option system. See the 
DOS-15 V3B000 Update Document DEC-15- 
0D3BA-A-D for information on DOS-15 
V3B000 option system construction . 

WARNING 

When using SGEN with the UC15 option 
DO NOT reply yes to the "UC15 CONFIG?" 
question . 


The UC15 OPTION system is designed to allow users with multiple types 
of disk devices to use the RF or RP disk as a systems device in con- 
junction with the UC15. The DOS-15 Vnn UC15 OPTION tape DEC-15- 
ODUCA-A-UC^ must be used. 

The following example sequence shows the installation of the 
UNICHANNEL software on an RP system. The installation on a RF disk 
system would be similar, as would the use of magtape instead of 
DECTAPE . 


1, Load and start the DOSSAV paper tape. Restore the two 
DECTAPES onto the disk pack. 

DOSSAV V3A000 

INPUT DEVICE? DT 

UNIT #? ^ 

OUTPUT DEVICE? DP 

UNIT #? 0 

DATE CREATED: 08-AUG-74 

TAPE DONE. MOUNT ANOTHER 
1 

DOSSAV V3A000 
INPUT DEVICE? 

2. Load and start the supplied RPBOOT tape. 


(1) If the system has magtape, use magtape DEC-15-ODUCA-A-MC9 or 
DEC-15-ODUCA-A-MC7 . 
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3. Assemble the RPBOOT XXX source with the assembly parameter 
UC15 = 0 with paper tape binary output. This special 
bootstrap is to be used whenever the PDP-11 monitor PIREX 
is running, and only then . 

4. MICLOG SYS 

5. Mount the UC15 OPTIONS tape on DTO or MTO^ 

6. Patch the special RESMON, DOSNRM, DOSBCD, and SGNBLK, located 
on the UC15 OPTIONS tape onto the system. 

$ PATCH ^ 

PATCH Vnn) 

> RESMON ^ 

>READ RESMON^ 

^ READ DOSBCD^ 

>READ SGNBLK RPA^ (for RF use 'SGNBLK RFA ' ) 

> DOS15 ^ 

READR 16077 DOSNRM 

EXIT i 

NOTE 


The PDP-15 will halt on this EXIT. 

7. Load ABSLll XXX paper tape (see Section 2.2.2). 

8. Load and start the supplied PIREX XXX PDP-11 MONITOR paper 
tape (see Section 2.2.2), 

9. Reload the DOS System using the special RPBOOT tape pro- 
duced in step 3. This tape will be used for all future 
boots while the UC15 option is being used. 

10 . MICLOG SYS 

11. Run SGEN to install MACll as a systems program, 

H. ADD SYS PROG? (N) Y_ 

PROG NAME[ ] MACll 
# OF BLOCKS [ ] 40 
OVERLAY NAME [ ] 


BUFFS [0] 2 


(1) For magtape use the MTA handler. 
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DAT SLOTS; 


>^ 11, ,- 12 

> 


12. Run PATCH to place proper values in SGNBLK for MACll. The 
values typed by the system after the slash are current disk 
contents, and may not match the example typout given. Type 
the values after the >'s, i.e., 1, 17625, and 17500. Follow 
the typins with ALT-MODES. 

DOS-15 V3A000 

$ PATCH / 

PATCH V3A000 

> MACll y^ 

>00237/001250>l 

00240/016331 M7625 

>SA^ 

00241/001415> 17500 
> EXIT ^ 

13. LOGIN PER 

14. PIP the MACll components from DTO or MTO to disk. 

DOS-15 V3A000 
$ PIP 

DOSPIP V3A000 

> T DP,^« — DTO MACIMG 006,MACINT 014 

> tc 

15. Assemble MACIMG and MACINT. (See Section 2.3.1 for more 
details . ) 

The PDP-11 Peripheral Processor may have varying amounts of local 
memory. The default value is 8K, which requires no assembly param- 
eters. For 12K define LM12K = 0, for 4K define LM4K = 0. 

DOS-15 V3A000 

$MACRO 
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>BP^MACIMG 006 
LM12K=0 
TD EOT 

END OF PASS 1 

SIZE=00422 NO ERROR LINES 

BMACRO-15 V3A000 
>BP^MACINT 014 
LM12K=0 
TD EOT 


END OF PASS 1 

SIZE=17617 NO ERROR LINES 

BMACRO-15 V3A000 

rc 

DOS-15 V3A000 

The system area on disk for MACll requires a PDP-15 core image, 
and a PDP-11 core image. 

16. Load the PDP-11 image from paper tape by running the binary 
MACIMG. (See Section 2.3.1 for exact details of proper 
tape selection.) If the system has API - issue a 
DOS API OFF command first. 


17. 

18. 


DOS-15 V3A000 
$GLOAD 

BLOADER V3A000 
>^ MACIMG (aL 
DONE 

DOS-15 V3A000 
MICLOG SYS 

Patch MACINT, the PDP-15 portion of MACll, 
in the normal manner 


into the system 


DOS-15 V3AOOO 
$A DP <PER> -10 
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$PATCH ? 


PATCH V3A000 
> MAC11 
> READ MACINT 
> EXIT 

DOS-15 V3A000 

19. LOGIN PER 

20. PIP the PIREX source onto the disk for editing. 

DOS-15 V3A000 
$PIP 

DOSPIP V3A000 

>T DP^* DTP PIREX XXX 

US- 

21. See Section 2.3.2 for the details of reconfiguring PIREX 
into a version specific to your exact configuration. Do 
this reconfiguration now. 

22. PIP the sources for the UNICHANNEL handlers from DTO or MTO 
onto disk. 

DOS-15 V3A000 

$ PIP 

DOSPIP V3A000 

> T DP DTO LPU. 020,XYU. 032 

TC 

DOC- 15 V3AOOO 

Note that the card reader source CD. DOS is already on <PER>. 

23. Assemble the sources to binaries. Note that the card 
reader source requires the assembly parameter UC15 = 0. 

$ MACRO 

BMACRO-15 V3A000 
> &t-LPU. 020 
END OF PASS 1 

SIZE=00657 NO ERROR LINES 
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> B-*“XYU. 032 

END OF PASS 1 

SIZE=01150 NO ERROR LINES 

BMACRO-15 V3A000 
>BP-*-CD.DQS 031 
UC15=0 
Tp EOT 

END OF PASS 1 

SIZE=00613 NO ERROR LINES 

BMACRO-15 V3A000 

!£. 

DOS-15 V3A000 

24. MICLOG SYS 

25. PIP the handler binaries to DP <IOS> . Note especially the 
name changes. The sources are called XXU for designating 
UNICHANNEL sources. The handlers, however, must be named 
XYA, CDB, LPA. 

>T DP <IOS> XYA. BIN"*^P <PER>XYU. BIN 
>T DP <IOS>LPA. BIN— DP <PER>LPU. BIN 
> T DP < IQS > CDB. BIN^DP < PER > CD. DOS BIN 

26. Transfer the three RK handlers from the UC15 OPTIONS tape 
to the <IOS> UIC. 


> T DP <IOS> , , ^ DTP RKA. BIN,RKB. BIN,RKC. BIN 
It is now necessary to run SGEN to install new SKIP lOTS 

iT a 1 1 ■FrMiv -1 e ^ a f "DV W N A ^ ^ 

\ ^ a- ^ AX <3 \ XVXV U.XX^^ XV O./ J-IX UXiO 


B ALTER I/O DEVICES OR HANDLERS? (N) Y 


DELETE DISCARDED HANDLERS? (Y) Y 
TO BE KEPT 
PR?($) $ 

LP? ($) Y 
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LPA? (Y) 

NEW HANDLERS: 

> 

LPSF=706501? (Y) Y_ 

NEW SKIPS: 

> LPSK=706141 

> 

CD? ($) Y_ 

CDS? (Y) 

NEW HANDLERS? 

> 

CRSI=706701? (Y) Y. 
CRSD=706721? (Y) Y_ 

NEW SKIPS: 

>CRSF=706121 

> 

C. ADD NEW DEVICE? (N) Y 
DEVICE CODE[ ] ^ 

NEW HANDLERS: 

>RKA 

> RKB 

>RKC 

> 

NEW SKIPS: 

> RKSF=706101 

> 

C. ADD NEW DEVICE? (N) JY 
DEVICE CODE[ ] XY 
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NEW HANDLERS: 


> XYA 

> 

NEW SKIPS: 
XYSF=706161 


> 

28. Halt both machines. 

29. Load ABSLll. 

30. Load in the new PIREX tape (specific to your machine) . 

31. Bootstrap DOS with the modified RPBOOT. 

The system is ready to use UNICHANNEL peripherals. 

It should now be DOSSAVed. This system will operate only 
with the UNICHANNEL-15 peripheral processor. If PIREX is 
not executing, this system will not function. 
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GLOSSARY 


Active Task 

An Active Task is one which: 

1. is currently executing 

2. has a new request pending in its queue 

3. is in a wait state 

4. has been interrupted by a higher priority task. 


Active Task List 

A priority-ordered linked list of Active Tasks used for scheduling 
tables. The ATL is a queue consisting of one node for each Active 
Task in the system. 


3usy/Idle Switch 

A two-word storage area used to save TCBP's when processing a request. 
Every task has a two-word Busy/Idle Switch. If the two words are zero, 
the task is currently not busy and is able to accept and process a new 
request. Bit 15 of the first word is used by the system to determine 
if the TCB came from a PDP-15 or PDP-11 request. If zero, the request 
came from the PDP-15, otherwise it came from the PDP-11. 


call Side 

All spoolers have a 'call side' where a set of data is passed by the 
caller to the spooler (for output spooled devices/tasks) or data is 
passed by the spooler to the caller (for input spooled devices/tasks) . 
This is done only when a request is made to the spooler. 
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Context Save 


The storing of all active registers, including the program counter 
(PC) and program status (PS), on the current task's stack. These 
saves are done when higher priority tasks interrupt lower priority 
ones and by device driver interrupt routines to allow them free use of 
the general purpose registers. 


Context Switching 

The process of saving the active registers belonging to the current 
task executing (a context save) , determining a new task to execute, 
and finally restoring the registers belonging to it. 


Deque 

Deque, pronounced deck, is a double-ended queue consisting of a list- 
head and list elements, circularly linked by both forward and backward 
pointers. Deques (linked lists) are used, instead of tables, to store 
TCB pointers and ATL information. The list elements (commonly called 
nodes) are initially obtained from a pool of empty nodes called the 
POOL. Nodes consist of listhead and 2 words of data used to store the 
caller's TCB pointer or ATL information. When a node is needed, it is 
removed from the POOL and queued to the referenced task deque of the 
ATL. When a node is no longer needed, it is zeroed and returned to 
the POOL. 


Dequeue 

Remove a node from a queue. 

Directive 

A task which performs some specific operation under PIREX, e.g., con- 
necting and disconnecting tasks. 


Driver 

A task which controls a hardware device. Drivers usually consist of 
necessary program only rudimentary operations (e.g., read, write or 
search) . The more complex operations such as file manipulations and 
syntax checking are usually performed by handlers . 


Event Variable 

A word or variable used to determine the status of a request. The 
Event variable is set to indicate successful completion, rejection, 
status, or a request still pending condition. 
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Interrupt Side 

All spoolers have an 'Interrupt Side' where data is passed by the 
spooler to the device/tasks (for output spooled device/tasks) or data 
is passed from the device/tasks to the spooler (for input spooler 
devices/tasks) . This occurs whenever output of data is complete or 
input data is ready. 


Linked List 

A deque consisting of nodes and listhead used to store system informa 
tion. An empty list consists of only a listhead. 


Listhead 

A two~word core block with forward and backward pointers pointing to 
the next and previous list node or to itself if empty. The listhead 
is a reference point in a circularly-linked list. 


Local Memory 

Core memory only addressable by the PDP-11. This is ordinary 16-bit 
PDP-11 core memory. 


Node Manipulation 

The process of transferring nodes from one deque structure to another. 


Nodes 

The list elements of a deque. All nodes consist of listhead, followed 
by 2 words of data (list elements) . 


Nul Task 

The Nul Task is a task which runs when no other task can. It consists 
of only PDP-11 WAIT and BR Instruction to increase UNIBUS operations. 


Permanent Task 

A task in PIREX is said to be a permanent task if it is assembled into 
PIREX, has space in all PIREX system tables and has a fixed task code 
number. 
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POOL 


A linked list of empty four-word nodes for use in any deque in the sys- 
tem. The POOL is generated at assembly time and currently has 20 
decimal nodes available. 


Pop 

To remove an Item (word) from the current task's stack. 

Push 

To put an item (word) onto the current task stack. 

Queue 

To enter into a waiting list. Queues in PIREX consist only of deque 
structures . 


Scheduling 

The process of determining which task will be executed next. The 
operation is based on a priority ordered list of active tasks in the 
system (ATL) . 


Shared Memory 

Core memory addressable by both the PDP-15 and PDP-11. The shared 
memory is ordinary 18-bit PDP-15 memory. 


Spare Task 

A task that runs under PIREX is said to be a temporary task if it is 
not assembled into PIREX, has space in all PIREX system tables, does 
not have a fixed task code number and its start address is not fixed. 

The core occupied by the temporary tasks is not freed unless the tasks 
are disconnected in the order in which they were connected. 


SPOLSW 

This is a register in PIREX which contains the spooler control and 
status switches as indicated below. 
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BITS 0-7 Device busy Idle switch 
'O' if idle and busy 


BIT 0 LP 

1 CD 

2 PL 

3-7 UNUSED 

BITS 8-15 Spooler State/Function switches 

'O' if disabled and '!' if enabled 

BIT 12 DESPOOLER 

13 SPOOLER 

14 SPOOLING 

15=1 SPOLll PROGRAM CONNECTED TO PIREX 
=0 SPOLll PROGRAM NOT CONNECTED TO PIREX 


Task 

A PDP-11 software routine capable of being requested by the PDP-15 or 
PDP-11 through the PIREX software system. The task may be a device 
driver, a Directive, or just a software routine used to carry out a 
specified function. A task must have the format shown in Figure 2-1. 


Task Code Number 

All tasks in the PIREX system are differentiated by a numbering system 
rather than by name. Task Code Numbers are used in TCBs and are cur- 
rently assigned as follows: 

CODE 

-1 CL task 

200 ST task 

201 SD task 

202 RK Driver task 

203 DT Driver task 

4 LP Driver task 

5 CD Driver task 

6 PL Driver task 

7 SPOOLER task 

11 currently not used 

12 currently not used 

13 currently not used 
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TCB - Task Control Block 


A set of contiguous memory locations (minimum of three) which contain 
all necessary information for a task to complete its request. The 
contents of the TCB must be defined prior to the request by the 
requesting program (e.g., a PDP-15 program). 

A pointer to the TCB (called a TCBP) is then passed to the PDP-11 via 
the LIOR instruction in the PDP-15 or the IREQ macro in the PDP-11 to 
actually initiate the request. 


TCBP - Task Control Block Pointer 

A pointer to a TCB. This pointer is passed to the PDP-11 either via 
the LIOR instruction in the PDP-15 or the IREQ macro in the PDP-11 
when initiating a request to PIREX. 
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INDEX 


ABORT requests, 4-32 
ABSLll, 1-1, 2-1 
ABSLll loading, 2-2 
ABSLll paper tape, 1-2, 2-1 
ABSLll starting addresses, 2-2 
Absolute tape, 2-2 
Active task, Glossary-1 
Active task list, Glossary-1 
Active Task List ATL, 3-9 
Address, API trap, 3-6 
Address, restart, 2-1 

Address (TEVADD) , task starting, 3-16 
API trap address, 3-6 
Assembling spooler, 6-6 
ATL nodes, 3-9 

ATL node pointer (ATLNP) , 3-13 


Background task/priorities, 4-2 
Begin routine, 6-4 
BITMAP, 5-5 

Busy/Idle switch, Glossary-1 


Call service routine, 6-2 
Call side, Glossary-1 
Card reader, 2-8 

Card reader driver task (CD) , B-7 
Card reader errors, 2-9 
Central address table, 6-5 
Checksum error, 2-2 
Clock request table (CLTABL) , 3-14 
.CLOSE function, 4-15 
Code number, task, 3-7 
Common memory , 1-3 
Components 
DOS-15, 2-10 
PIREX, 3-3 
RSX-PLUS III, 2-11 
spooler, 5-2 
UC15, 2-10 

Connect task directive, 3-27 
Context save, Glossary-2 
Context switching, Glossary-2 
Control block - TCB, task, 3-6 
Core status report directive, 3-29 


Deque, Glossary-2 
Dequeue, Gloss ary- 2 
Design, spooler, 5-1, 5-2 
Despooling, 5-28 
DEVCNT, 6-5 
Device 

drivers, 3-3 

error status table (DEVST) , 3-15 
handler, DOS UNICHANNEL, 4-5 
handlers, 4-5 
interrupt dispatcher, 5-3 


Device (cont.) 

interrupt service routines, 5-3 
priorities, 4-2 
DEVSPP, 6-5 
DEVST table, B-8 
Directive, Glossary-2 

core status report, 3-29 
error status report, 3-30 
handling, 3-18 
processing routines, 5-3 
spooler status report, 3-31 
Disconnect task directive, 3-26 
Disk 

cartridge errors, 2-8 
driver task (RK) , B-3 
Dispatcher, device interrupt, 5-3 
DOS 

UNICHANNEL device handler, 4-5 
DOS-15, 2-1 
components, 2-10 
loading, 2-2 
DOSSAV, 2-1 
Driver assembly, 4-41 
Driver, Glossary-2 


EDIT, 1-2, 2-5 
End routine, 6-4 
Error 

handling, 2-8 

status report, directive, 3-30 
Errors 

card reader, 2-9 
disk cartridge, 2-8 
Event variable, Glossary-2 
Execution, 2-1 


Format TCB, 6-4 
FINDBK routine, 6-6 
Function, .CLOSE, 4-15 
Function code, 3-7 


Handlers 

device, 4-5 

PDP-15 UNICHANNEL, 2-7 
Handling, error, 2-8 
Hardware, peripheral processor, 1- 
Hardware Read In mode, 2-1 
Hardware system, UNICHANNEL-15, 
1-2, 1-3 


Illegal punch combination, 2-9 
Installation 

permanent task, 4-4, 4-5 
temporary task, 4-4 
Internal tables, 3-16 


Index- 1 



Interrupt, 4-14, 4-32 
link, 1-4 

service routine, 6-3 
side, Glossary-3 


Level table, 3-15 

Line printer driver task (LP) , B-5 
Linked list, Glossary-3 
List, active task, Glossary-1 
Listhead, Glossary-3 
Listheads (LISTHD) , TRL, 3-14 
Loading, 2-1 
ABSLll, 2-2 
DOS-15, 2-2 
PIREX, 2-2 

Local memory, 1-3, 2-1, Glossary-3 
LP despooling, 5-28 
LP spooling, 5-26 


MACH, 1-1, 2-4, 3-3 
MACH assembler, 1-2 
MACRO-15, 1-2, 2-1 
Memory , 

common , 1-3 
local, 1-3, 2-1 

MX15-B memory bus multiplexer, 1-6 


Nodes, Glossary- 3 

Node manipulation, Glossary-3 

NUL task. Glossary- 3 


Operating sequence, 3-18 


PDP-11, 1-5 
code, 2-1 

requesting task, 4-15 
PDP-15 UNICHANNEL handlers, 2-7 
Peripheral operation, 2-7 
card reader, 2-7 
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plotter, 2-7 

Peripheral processor hardware, 1-5 
Permanent task, Glossary-3 
Permanent task installation, 4-4, 4 
PER UIC, 2-5 
PIREX, 1-1, 2-5, 3-1 
components, 3-3 
device driver, building, 4-33 
loading, 2-2 
Plotter, 2-8 

Plotter driver task (XY) , B-9 
Pointer (ATLNP) , ATL node, 3-13 
Priorities 

background task, 4-2 
device, 4-2 

Processing request, 3-5 


Processor 
read, 5-28 
write, 5-28 


Read processor, 5-28 
•READ requests, 4-32 
Read/Write operations, 6-3 
Reconfiguration, UNICHANNEL 
software, 2-4 
Request 

dispatcher, 5-2 
event variable, 3-8 
procedure, 3-17 
processing, 3-5 
transmission, 4-13 
ABORT, 4-32 
.READ, 4-32 

.READ and .WRITE, 4-32 
Restart address, 2-1 
Restarting, 2-2 
Result reception, 4-14 
Routine 

begin, 6-4 
call service, 6-2 
end, 6-4 
FINDBK, 6-6 

interrupt service, 6-3 
device interrupt service, 5-3 
directive processing, 5-3 
task call service, 5-3 
utility, 5-3 

•RSX-PLUS III components, 2-11 
RSX-PLUS III, UNICHANNEL device 
handlers, 4-16 


Save, context, Glossary-2 
Shutdown, spooler, 5-31 
Side 

call, Glossary-1 
interrupt. Glossary- 3 
Size constraints, SPOOLER, 2-7 
Software directive task, 3-24 
Softv/are directive task (SD) , B— 3 
Software interrupt, 3-21 
SPOLH, 1-1, 2-5 
Spooler, 5-1, 6-1 
5 assembling, 6-6 

begin directive, 5-5 
components, 5-2 
design, 5-2, 6-1 
shutdown, 5-31 
size constraints, 2-7 
startup, 5-5 

status report directive, 3-31 
UNICHANNEL- 15, 5-1 
Spooling, 1-1 
Spooling, LP, 5-26 
Starting addresses, ABSLll, 2-2 
Startup, spooler, 5-5 
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STOP task (ST), 3-24, B-2 

Structure, task, 3-5 

Switch, Busy/Idle, Glossary-1 

Switching, context, Glossary-2 

System crashes, 2-9 

System interrupt vectors, 3-16 


Table, 5-4 

central address, 6-5 

clock request (CLTABL) , 3-14 

device error status (DEVST) , 3-15 

DEVST, B-8 

internal, 3-16 

level, 3-15 

transfer vector (SENDll) , 3-16 
updating, 6-5 
Tape, absolute, 2-2 
Task 

card reader driver (CD) , B-7 
disk driver (RK) , B-3 
line printer driver (LP) , B-5 
plotter driver (XY) , B-9 
Task call service routines, 5-3 
Task code number, 3-7, 4-3, 
Glossary-5 

Task completion, 3-21 


UNICHANNEL- 15, hardware system, 1-2 

1- 3 

UNICHANNEL software reconfiguration, 

2- 4 

UNICHANNEL- 15 software system, 1-1, 
2-1 

UNICHANNEL-15 spooler, 5-1 
Unsupported tasks, 3-4 
Updating table, 6-5 
Utility routines, 5-3 


Write processor, 5-28 
.WRITE requests, 4-32 


Task control block, 1-4, 3-6 
TCBs, 3-6, 4-2 
pointer, 1-4 
Task directive 
connect, 3-27 
disconnect, 3-26 
software, 3-24 
software (SD) , B-3 
Task, PDP-11 requesting, 4-15 
Task, STOP, 3-24 
TASK, STOP (ST) , B-2 
Task structure, 3-5 
Task Request List (TRL) , 3-13 
Task starting address (TEVADD) , 3-16 
TCB, 5-5, 6-4 

TCB and issue request, 6-3 
TCB format, 6-4 

TCB - Task Control Block, Glossary-6 
TCBP - Task Control Block Pointer, 
Glossary-6 

Temporary task installation, 4-4 
Testing, 4-41 
Timed wakeup, 4-41 

Transfer vector table (SENDll) , 3-16 
TRL listheads (LISTHD) , 3-14 


UC15 components, 2-10 
UNIBUS, 1-3, 1-4 
UNICHANNEL device handlers for 
RSX-PLUS III, 4-16 
UNICHANNEL-15 (UC15) , 1-1 
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HOW TO OBTAIN SOFTWARE INFORMATION 


SOFTWARE NEWSLETTERS, MAILING LIST 

The Software Communications Group, located at corporate headquarters in 
Maynard, publishes newsletters and Software Performance Summaries (SPS) 
for the various Digital products. Newsletters are published monthly, 
and contain announcements of new and revised software, programming 
notes, software problems and solutions, and documentation corrections. 
Software Performance Summaries are a collection of existing problems 
and solutions for a given software system, and are published periodi- 
cally. For information on the distribution of these documents and how 
to get on the software newsletter mailing list, write to: 

Software Communications 
P. 0. Box F 

Maynard, Massachusetts 01754 


SOFTWARE PROBLEMS 


Questions or problems relating to Digital's software should be reported 
to a Software Support Specialist. A specialist is located in each 
Digital Sales Office in the United States. In Europe, software problem 
reporting centers are in the following cities. 


Reading, England 
Paris, France 
The Hague, Holland 
Tel Aviv, Israel 


Milan, Italy 
Solna, Sweden 
Geneva, Switzerland 
Munich, West Germany 


Software Problem Report (SPR) forms are available from the specialists 
or from the Software Distribution Centers cited below. 


PROGRAMS AND MANUALS 


Software and manuals should be ordered by title and order number. In 
the United States, send orders to the nearest distribution center. 


Digital Equipment Corporation 
Software Distribution Center 
146 Main Street 
Maynard, Massachusetts 01754 


Digital Equipment Corporation 
Software Distribution Center 
1400 Terra Bella 

Mountain View, California 94043 


Outside of the United States, orders should be directed to the nearest 
Digital Field Sales Office or representative. 


USERS SOCIETY 


DECUS, Digital Equipment Computer Users Society, maintains a user ex- 
change center for user-written programs and technical application in- 
formation. A catalog of existing programs is available. The society 


publishes a periodical, DECUSCOPE, 
United States, Canada, Europe, and 
society and membership application 

DECUS 

Digital Equipment Corporation 

146 Main Street 

Maynard, Massachusetts 01754 


and holds technical seminars in the 
Australia. For information on the 
forms, write to: 

DECUS 

Digital Equipment Corporation 
International (Europe) 

P.O. Box 340 
1211 Geneva 26 
Switzerland 



UNICHANNEL-15 
SYSTEM SOFTWARE 
MANUAL 

DEC- 1 5 -XUCMA-A-D 


READER'S COMMENTS 


NOTE: This form is for document comjnents only. ProblemiS 

with software should be reported on a Software 
Problem Report (SPR) form (see the HOW TO OBTAIN 
SOFTWARE INFORMATION page) . 


Did you find errors in this mLanual? If so, specify by page. 


Did you find this manual understandable, usable, and well-organized? 
Please make suggestions for improvement. 


Is there sufficient documientation on associated system, program.s 
required for use of the software described in this manual? If not, 
what miaterial is missing and where should it be placed? 


Please indicate the type of user/reader that you most nearly represent. 

I I Assembly language programmer 
I I Higher-level language programmer 
[ I Occasional programmer (experienced) 

I I User with little programming experience 
I I Student programm.er 

I I Non-programmer interested in computer concepts and capabilities 

Name Date 

Organization 

Street — 

City State Zip Code 

or 

Country 

If you do not require a written reply, please check here. Q 
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